Index: generic/xotclShadow.c
===================================================================
diff -u -rf4b1378f3136bc998645f230af38847bcf76d96b -r84396a78ea963f52832233d23dab1d17603a502a
--- generic/xotclShadow.c	(.../xotclShadow.c)	(revision f4b1378f3136bc998645f230af38847bcf76d96b)
+++ generic/xotclShadow.c	(.../xotclShadow.c)	(revision 84396a78ea963f52832233d23dab1d17603a502a)
@@ -177,14 +177,14 @@
   int result;
   XOTclShadowTclCommandInfo *ti = &RUNTIME_STATE(interp)->tclCommands[name-XOTE_EXPR];
   ALLOC_ON_STACK(Tcl_Obj*,objc, ov);
-
-  /* {int i;
+  /*
+   {int i;
     fprintf(stderr,"calling %s (%p %p) in %p, objc=%d ",
-	    XOTclGlobalStrings[name],ti,ti->proc, in, objc);
-    for(i=0;i<objc;i++){fprintf(stderr, "'%s' ", ObjStr(objv[i]));}
+	    XOTclGlobalStrings[name],ti,ti->proc, interp, objc);
+            for(i=0;i<objc;i++){fprintf(stderr, "'%s' ", ObjStr(objv[i]));}
     fprintf(stderr,"\n");
-  } */
-  
+  } 
+  */
   ov[0] = XOTclGlobalObjects[name];
   if (objc > 1)
     memcpy(ov+1, objv+1, sizeof(Tcl_Obj *)*(objc-1));