Index: generic/xotcl.c
===================================================================
diff -u -r02ec0d2caa6701949f29171520a462564299a611 -r1677a9ac51d4f2e65087992bd21245e20b1ce323
--- generic/xotcl.c	(.../xotcl.c)	(revision 02ec0d2caa6701949f29171520a462564299a611)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 1677a9ac51d4f2e65087992bd21245e20b1ce323)
@@ -7224,7 +7224,7 @@
 static CONST char *
 StripBodyPrefix(CONST char *body) {
   if (strncmp(body, "::nsf::unsetUnknownArgs\n", 24) == 0)
-    body += 29;
+    body += 24;
   return body;
 }
 
@@ -10018,6 +10018,7 @@
 ListProcBody(Tcl_Interp *interp, Proc *procPtr, CONST char *methodName) {
   if (procPtr) {
     CONST char *body = ObjStr(procPtr->bodyPtr);
+    fprintf(stderr,"BODY %s \n",body);
     Tcl_SetObjResult(interp, Tcl_NewStringObj(StripBodyPrefix(body), -1));
     return TCL_OK;
   }
Index: library/nx/nx.tcl
===================================================================
diff -u -r5afef6111e8c64d8035a90aa683ff077a5cf1d91 -r1677a9ac51d4f2e65087992bd21245e20b1ce323
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 5afef6111e8c64d8035a90aa683ff077a5cf1d91)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 1677a9ac51d4f2e65087992bd21245e20b1ce323)
@@ -728,7 +728,8 @@
     :alias "info filter methods" ::nsf::cmd::ObjectInfo2::filtermethods
     :alias "info forward"        ::nsf::cmd::ObjectInfo2::forward
     :alias "info hasnamespace"   ::nsf::cmd::ObjectInfo2::hasnamespace
-    :method "info is" {kind value:optional} {::nsf::objectproperty [::nsf::current object] $kind {*}$value}
+    :method "info is" {kind value:optional} {::nsf::objectproperty [::nsf::current object] $kind {*}[expr {[info exists value]?$value:""}]}
+#    :method "info is" {kind value:optional} {::nsf::objectproperty [::nsf::current object] $kind {*}$value}
     :alias "info methods"        ::nsf::cmd::ObjectInfo2::methods
     :alias "info mixin guard"    ::nsf::cmd::ObjectInfo2::mixinguard
     :alias "info mixin classes"  ::nsf::cmd::ObjectInfo2::mixinclasses
@@ -752,6 +753,8 @@
   #
   foreach m [::nx::Object::slot::__info ::nsf::cmd::ObjectInfo2::methods] {
     set definition [::nx::Object::slot::__info ::nsf::cmd::ObjectInfo2::method definition $m]
+    puts stderr DEF=$definition
+    puts stderr "::nx::Class::slot::__info {*}[lrange $definition 1 end]"
     ::nx::Class::slot::__info {*}[lrange $definition 1 end]
   }