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