Index: generic/xotcl.c
===================================================================
diff -u -rbfbe69299ca79f52f8571d5132864ad99f611180 -r7f114dad2b4deb00431c895e511118c3c675cb07
--- generic/xotcl.c	(.../xotcl.c)	(revision bfbe69299ca79f52f8571d5132864ad99f611180)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 7f114dad2b4deb00431c895e511118c3c675cb07)
@@ -10167,12 +10167,15 @@
                          int withObjscope, int withPer_object) {
   Tcl_ListObjAppendElement(interp, listObj, object->cmdName);
   if (withPer_object) {
-    Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj("object",-1));
+    Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj("object",6));
   }
   Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj(registerCmdName,-1));
   if (withObjscope) {
-    Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj("-objscope",-1));
+    Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj("-objscope",9));
   }
+  if (Tcl_Command_flags(cmd) & XOTCL_CMD_NONLEAF_METHOD) {
+    Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj("-nonleaf",8));
+  }
   Tcl_ListObjAppendElement(interp, listObj, Tcl_NewStringObj(methodName,-1));
 }