Index: generic/xotcl.c
===================================================================
diff -u -r9f8816ff85210d4b5a1dbc235f8518a0d3312909 -r1d26e6269b5380e52588f077cd65e32c8a5c0cb6
--- generic/xotcl.c	(.../xotcl.c)	(revision 9f8816ff85210d4b5a1dbc235f8518a0d3312909)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 1d26e6269b5380e52588f077cd65e32c8a5c0cb6)
@@ -1698,6 +1698,7 @@
     vInfoPtr->vInfo.deleteProc = CompiledColonVarFree; /* if NULL, tcl does a ckfree on proc clean up */
     vInfoPtr->lastObj = NULL;
     vInfoPtr->var = NULL;
+    fprintf(stderr, "copying %d bytes\n", length);
     memcpy(vInfoPtr->buffer, name+1, length-1);
     vInfoPtr->nameObj = Tcl_NewStringObj(name+1, length-1);
     INCR_REF_COUNT(vInfoPtr->nameObj);