rem: ErrorCmd(ClientData arg, Tcl_Interp *interp, int argc, char **argv, int cmd)
add: ErrorCmd(ClientData arg, Tcl_Interp *interp, int argc, CONST char **argv, int cmd)
context: ErrorCmd(ClientData arg, Tcl_Interp *interp, int argc, char **argv, int cmd){    InterpData *idataPtr = arg;    Ns_DbHandle *handle;    if (argc != 2) {        Tcl_AppendResult(interp, "wrong # args:  should be \"",            argv[0], " dbId\"", NULL);        return TCL_ERROR;    }    if (DbGetHandle(idataPtr, interp, argv[1], &handle, NULL) != TCL_OK) {        return TCL_ERROR;    }    if (cmd == 'c') {    	Tcl_SetResult(interp, handle->cExceptionCode, TCL_VOLATILE);    } else {    	Tcl_SetResult(interp, handle->dsExceptionMsg.string, TCL_VOLATILE);    }    return TCL_OK;}