Index: generic/xotcl.c =================================================================== diff -u -r50795c66c8a80091cfd160fd48aee2cf2381ca47 -r558ed9bfabea39f0688b9abe854f6eb7db9f0167 --- generic/xotcl.c (.../xotcl.c) (revision 50795c66c8a80091cfd160fd48aee2cf2381ca47) +++ generic/xotcl.c (.../xotcl.c) (revision 558ed9bfabea39f0688b9abe854f6eb7db9f0167) @@ -10977,20 +10977,10 @@ XOTcl_PopFrame(interp, obj); remainingArgsc = pc.objc - paramDefs->nrParams; -#if defined(CONFIGURE_ARGS_TRACE) - fprintf(stderr, "*** POPULATE OBJ SETVALUES with '%d' elements:\n", remainingArgsc); - { int j; - for (j = i; j < i + remainingArgsc; j++) { - fprintf(stderr, "*** SETVALUES[%d] with '%s'\n", j, pc.full_objv[j] ? ObjStr(pc.full_objv[j]) : "NULL"); - } - } -#endif - if (remainingArgsc > 0) { result = callMethod((ClientData) obj, interp, - XOTclGlobalObjects[XOTE_SETVALUES], remainingArgsc+2, pc.full_objv+i, 0); + XOTclGlobalObjects[XOTE_RESIDUALARGS], remainingArgsc+2, pc.full_objv+i, 0); if (result != TCL_OK) { - /* TODO: interp reset achieved by Object->setvalues?*/ parseContextRelease(&pc); goto configure_exit; } @@ -11223,7 +11213,7 @@ return TCL_OK; } -static int XOTclOSetvaluesMethod(Tcl_Interp *interp, XOTclObject *obj, int objc, Tcl_Obj *CONST objv[]) { +static int XOTclOResidualargsMethod(Tcl_Interp *interp, XOTclObject *obj, int objc, Tcl_Obj *CONST objv[]) { Tcl_Obj **argv, **nextArgv, *resultObj; int i, argc, nextArgc, normalArgs, result = TCL_OK, isdasharg = NO_DASH; char *methodName, *nextMethodName; @@ -11270,7 +11260,6 @@ } } resultObj = Tcl_NewListObj(normalArgs, objv+1); - //fprintf(stderr, ".... setvalues returns %s\n", ObjStr(resultObj)); Tcl_SetObjResult(interp, resultObj); return result;