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;
   }