Index: generic/xotcl.c
===================================================================
diff -u -re4021ec17be539fb4d0e7547bd9e93cece90fd49 -r851e2c38fe3ae9d84f531605d55defe2e1308a02
--- generic/xotcl.c	(.../xotcl.c)	(revision e4021ec17be539fb4d0e7547bd9e93cece90fd49)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 851e2c38fe3ae9d84f531605d55defe2e1308a02)
@@ -14219,9 +14219,12 @@
 static int XOTclObjInfoSlotObjectsMethod(Tcl_Interp *interp, XOTclObject *object, CONST char *pattern) {
   XOTclObjects *pl, *slotObjects;
   Tcl_Obj *list = Tcl_NewListObj(0, NULL);
+  /*XOTclClass *slotClass = XOTclpGetClass(interp, "::nx::Slot");*/
 
   slotObjects = computeSlotObjects(interp, object, pattern /* not used */, 1);
+  
   for (pl=slotObjects; pl; pl = pl->nextPtr) {
+    /*if (slotClass &&  !isSubType(pl->obj->cl, slotClass)) continue;*/
     Tcl_ListObjAppendElement(interp, list, pl->obj->cmdName);
   }