Index: generic/xotcl.c
===================================================================
diff -u -r1671480056524ca3d07e35307ebc26fa5811db74 -r1ffc14ff17a11e88e2796f196e5538d636bdd6ab
--- generic/xotcl.c	(.../xotcl.c)	(revision 1671480056524ca3d07e35307ebc26fa5811db74)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 1ffc14ff17a11e88e2796f196e5538d636bdd6ab)
@@ -2475,7 +2475,8 @@
   PRINTOBJ("CallStackDoDestroy", obj);
   oid = obj->id;
   obj->id = NULL;
-  if (obj->teardown && oid && !(obj->flags & XOTCL_TCL_DELETE)) {
+
+  if (obj->teardown && oid) {
     Tcl_DeleteCommandFromToken(interp, oid);
   }
 }
@@ -7554,7 +7555,7 @@
   XOTclObject *obj = (XOTclObject*)cd;
   Tcl_Interp *interp;
 
-  /* fprintf(stderr, "****** PrimitiveODestroy %p\n", obj);*/
+  /*fprintf(stderr, "****** PrimitiveODestroy %p %s\n", obj, ObjStr(obj->cmdName));*/
   assert(obj && !(obj->flags & XOTCL_DESTROYED));
 
   /*
@@ -7996,7 +7997,7 @@
   unsigned length;
   XOTclObject *obj = (XOTclObject*)cl;
 
-  /*fprintf(stderr, "CKALLOC Class %p %s\n", cl, name);*/
+  /*fprintf(stderr, "PrimitiveCCreate Class %p %s\n", cl, name);*/
 
   memset(cl, 0, sizeof(XOTclClass));
   MEM_COUNT_ALLOC("XOTclObject/XOTclClass", cl);