Index: generic/nsf.c =================================================================== diff -u -N -rc64f818543a3e40ed1fafcc58c50324448b39266 -r3ed6440e2cbe7612bba89469b3c44c376d857338 --- generic/nsf.c (.../nsf.c) (revision c64f818543a3e40ed1fafcc58c50324448b39266) +++ generic/nsf.c (.../nsf.c) (revision 3ed6440e2cbe7612bba89469b3c44c376d857338) @@ -14207,31 +14207,24 @@ } else { /* no unknown called, this is the built-in unknown handler */ Tcl_Obj *tailMethodObj = NULL; - fprintf(stderr, "UNKNOWN objv[1] %s\n", ObjStr(objv[1])); if (objc > 1 && ((*methodName) == '-' || (unknownObj && objv[0] == unknownObj))) { int length; + tailMethodObj = objv[1]; if (Tcl_ListObjLength(interp, objv[1], &length) == TCL_OK) { if (length > 1) { Tcl_ListObjIndex(interp, objv[1], length - 1, &tailMethodObj); - } else { - tailMethodObj = objv[1]; - } - } else { - /* The first ("method") argument to unknown is an invalid list, yet a valid message */ - fprintf(stderr, "UNKNOWN2 objv[1] %s\n", ObjStr(objv[1])); - tailMethodObj = objv[1]; + } } } - fprintf(stderr, "tail %s MethodName(tail) %s\n", ObjStr(tailMethodObj), MethodName(tailMethodObj)); result = NsfPrintError(interp, "%s: unable to dispatch method '%s'", ObjectName_(object), (tailMethodObj != NULL) ? MethodName(tailMethodObj) : methodName); } - + /* * Reset interp state, unknown has been fired. */ rst->unknown = 0; - + return result; }