Index: generic/xotclStack85.c
===================================================================
diff -u -r6ad5c75139b83b9bf0c180d2b2ceceafa8bf69f4 -r5ec6a6f960964d861d68c052d8e2e7d68b711449
--- generic/xotclStack85.c	(.../xotclStack85.c)	(revision 6ad5c75139b83b9bf0c180d2b2ceceafa8bf69f4)
+++ generic/xotclStack85.c	(.../xotclStack85.c)	(revision 5ec6a6f960964d861d68c052d8e2e7d68b711449)
@@ -384,9 +384,12 @@
 CallStackPop(Tcl_Interp *interp, XOTclCallStackContent *csc) {
 
 #if defined(TCL85STACK_TRACE)
-  fprintf(stderr, "POP  csc=%p, frame %p\n", csc);
+  fprintf(stderr, "POP  csc=%p\n", csc);
 #endif
 
+#ifdef OBJDELETION_TRACE
+  fprintf(stderr, "POP  csc=%p, obj %s, destroyed %p\n", csc, objectName(csc->self), csc->destroyedCmd);
+#endif
   if (csc->destroyedCmd) {
     int destroy = 1;
     TclCleanupCommand((Command *)csc->destroyedCmd);
@@ -397,6 +400,9 @@
     if (CallStackGetObjectFrame(interp, csc->self)) {
       destroy = 0;
     }
+#ifdef OBJDELETION_TRACE
+    fprintf(stderr, "  callDoDestroy ?%d\n",destroy);
+#endif
     if (destroy) {
       CallStackDoDestroy(interp, csc->self);
     }