Index: generic/xotcl.c
===================================================================
diff -u -r5b0ee985a6ff266c1246c8ade3e86c33956ac772 -rf2b4c92ea2f921bf15fa3d55230c78f1b361cc6a
--- generic/xotcl.c	(.../xotcl.c)	(revision 5b0ee985a6ff266c1246c8ade3e86c33956ac772)
+++ generic/xotcl.c	(.../xotcl.c)	(revision f2b4c92ea2f921bf15fa3d55230c78f1b361cc6a)
@@ -5838,13 +5838,11 @@
         objectName(obj), frameType, methodName);*/
       if ((result = MethodDispatch(clientData, interp, objc-shift, objv+shift, cmd, obj, cl,
                                  methodName, frameType)) == TCL_ERROR) {
-#if 0
-        fprintf(stderr, "Call ErrInProc cl = %p, cmd %p, flags %.6x\n",
-                cl, cl ? cl->object.id : 0, cl ? cl->object.flags : 0);
+        /*fprintf(stderr, "Call ErrInProc cl = %p, cmd %p, flags %.6x\n",
+          cl, cl ? cl->object.id : 0, cl ? cl->object.flags : 0);*/
 	result = XOTclErrInProc(interp, cmdName,
 				cl && cl->object.teardown ? cl->object.cmdName : NULL,
 				methodName);
-#endif
       }
       unknown = rst->unknown;
     }