rem: char       *server, *method, *url;
add: char       *server, *method, *url, *name, *args;
context: NsTclRegisterProcObjCmd(ClientData arg, Tcl_Interp *interp, int objc, 				Tcl_Obj *CONST objv[], int adp){    int         flags, idx;    Proc       *procPtr;    NsInterp   *itPtr = arg;    char       *server, *method, *url;    if (objc < 4 || objc > 7) {badargs:        Tcl_WrongNumArgs(interp, 1, objv, "?-noinherit? method url proc ?args?");        return TCL_ERROR;    }    if (STREQ(Tcl_GetString(objv[1]), "-noinherit")) {	if (objc < 5) {	    goto badargs;	}	flags = NS_OP_NOINHERIT;	idx = 2;    } else {	if (objc == 7) {	    goto badargs;	}	flags = 0;	idx = 1;    }    server = itPtr->servPtr->server;    method = Tcl_GetString(objv[idx++]);    url = Tcl_GetString(objv[idx++]);    Ns_Log(Notice, "%d %d", idx, objc);    if (idx+1 > objc-1) {       procPtr = NewProc(Tcl_GetString(objv[idx]), "");    } else {       procPtr = NewProc(Tcl_GetString(objv[idx]), Tcl_GetString(objv[idx+1]));    }    Ns_RegisterRequest(server, method, url, ProcRequest, FreeProc,			procPtr, flags);    return TCL_OK;}