Index: TODO
===================================================================
diff -u -r851e2c38fe3ae9d84f531605d55defe2e1308a02 -rd2f17f8dd98fcfa82a8473ed5e299c7c2026a80f
--- TODO	(.../TODO)	(revision 851e2c38fe3ae9d84f531605d55defe2e1308a02)
+++ TODO	(.../TODO)	(revision d2f17f8dd98fcfa82a8473ed5e299c7c2026a80f)
@@ -1189,10 +1189,10 @@
 - added methods "defaultmethod" and "unknown" to ::nx::EnsembleObject
   (together with a set of helper methods to provide user-friendly information)
 - scripted "info slotobjects" to return only objects of class ::nx::Slot
+- fixed test with UnknownClass in xotcl/tests/testx.xotcl
 
 TODO: 
 - fix test "ob bar" (filter test) in tests/interceptor-slot.tcl (currently commented out)
-- fix test with UnknownClass in xotcl/tests/testx.xotcl (collateral damage from refactoring)
 - check "my" vs. "nsf::dispatch" in xotcl2.tcl
 - overthink decision about not showing "child objects" per default in "info methods"
 
Index: generic/xotcl.c
===================================================================
diff -u -r851e2c38fe3ae9d84f531605d55defe2e1308a02 -rd2f17f8dd98fcfa82a8473ed5e299c7c2026a80f
--- generic/xotcl.c	(.../xotcl.c)	(revision 851e2c38fe3ae9d84f531605d55defe2e1308a02)
+++ generic/xotcl.c	(.../xotcl.c)	(revision d2f17f8dd98fcfa82a8473ed5e299c7c2026a80f)
@@ -364,7 +364,7 @@
   XOTclObject *object = (XOTclObject*) clientData;
   int result;
   ALLOC_ON_STACK(Tcl_Obj*, objc, tov);
-  /*fprintf(stderr, "%%%% callmethod called with method %p\n", method),*/
+  /*fprintf(stderr, "%%%% callmethod called with method %p\n", methodObj),*/
 
   tov[0] = object->cmdName;
   tov[1] = methodObj;
@@ -374,7 +374,7 @@
 
   /*fprintf(stderr, "%%%% callMethod cmdname=%s, method=%s, objc=%d\n",
     ObjStr(tov[0]), ObjStr(tov[1]), objc);
-    {int i; fprintf(stderr, "\t CALL: %s ", ObjStr(method));for(i=0; i<objc-2; i++) {
+    {int i; fprintf(stderr, "\t CALL: %s ", ObjStr(methodObj));for(i=0; i<objc-2; i++) {
     fprintf(stderr, "%s ", ObjStr(objv[i]));} fprintf(stderr, "\n");}*/
 
   result = ObjectDispatch(clientData, interp, objc, tov, flags);
@@ -695,6 +695,7 @@
     if (methodObj) {
       /*fprintf(stderr, "+++ calling __unknown for %s name=%s\n", 
 	className(baseClass), ObjStr(nameObj));*/
+
       result = callMethod((ClientData) baseClass, interp, methodObj,
                           3, &nameObj, XOTCL_CM_NO_PROTECT);
       if (result == TCL_OK) {
Index: generic/xotclInt.h
===================================================================
diff -u -re4021ec17be539fb4d0e7547bd9e93cece90fd49 -rd2f17f8dd98fcfa82a8473ed5e299c7c2026a80f
--- generic/xotclInt.h	(.../xotclInt.h)	(revision e4021ec17be539fb4d0e7547bd9e93cece90fd49)
+++ generic/xotclInt.h	(.../xotclInt.h)	(revision d2f17f8dd98fcfa82a8473ed5e299c7c2026a80f)
@@ -248,7 +248,7 @@
 #define XOTCL_CM_NO_UNKNOWN 1
 #define XOTCL_CM_NO_SHIFT   2
 #define XOTCL_CM_NO_PROTECT 4
-#define XOTCL_CM_NO_OBJECT_METHOD 4
+#define XOTCL_CM_NO_OBJECT_METHOD 8
 #define XOTCL_CM_DELGATE    0x10
 
 /*