Index: generic/xotcl.c
===================================================================
diff -u -r496ffe8fb5e5bdaba56fe3a939d32634bdbcb088 -r62913a6c49e78801642a5d974c30ec1100831c2f
--- generic/xotcl.c	(.../xotcl.c)	(revision 496ffe8fb5e5bdaba56fe3a939d32634bdbcb088)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 62913a6c49e78801642a5d974c30ec1100831c2f)
@@ -12389,7 +12389,7 @@
                                   (Tcl_ObjCmdProc*)XOTclSetterMethod, (ClientData)setterClientData, setterCmdDeleteProc, 0);
   }
   if (result == TCL_OK) {
-    result = ListMethodName(interp, object, withPer_object, methodName);
+    result = ListMethodName(interp, object, cl == NULL, methodName);
   }
   return result;
 }
@@ -12478,7 +12478,7 @@
   result = ArgumentCheck(interp, value, paramPtr, &flags, &checkedData, &outObjPtr);
 
   if (value != outObjPtr) {
-    fprintf(stderr, "reset result %p %p\n", value, outObjPtr);
+    /*fprintf(stderr, "reset result %p %p\n", value, outObjPtr);*/
     Tcl_ResetResult(interp);
   }