Index: generic/xotcl.c
===================================================================
diff -u -r1677a9ac51d4f2e65087992bd21245e20b1ce323 -r5a8f729f1007a41a4ecef05c11522a439564022e
--- generic/xotcl.c	(.../xotcl.c)	(revision 1677a9ac51d4f2e65087992bd21245e20b1ce323)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 5a8f729f1007a41a4ecef05c11522a439564022e)
@@ -10018,7 +10018,6 @@
 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 -r1677a9ac51d4f2e65087992bd21245e20b1ce323 -r5a8f729f1007a41a4ecef05c11522a439564022e
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 1677a9ac51d4f2e65087992bd21245e20b1ce323)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 5a8f729f1007a41a4ecef05c11522a439564022e)
@@ -729,7 +729,6 @@
     :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 {*}[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
@@ -753,8 +752,6 @@
   #
   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]
   }