Index: generic/xotclStack85.c
===================================================================
diff -u -r721a118d34e93f4149da419436efa5b17bab9b35 -r4e4b28776b65781a8624006c026986add5080cb5
--- generic/xotclStack85.c	(.../xotclStack85.c)	(revision 721a118d34e93f4149da419436efa5b17bab9b35)
+++ generic/xotclStack85.c	(.../xotclStack85.c)	(revision 4e4b28776b65781a8624006c026986add5080cb5)
@@ -50,6 +50,20 @@
   return NULL;
 }
 
+static void 
+CallStackClearCmdReferences(Tcl_Interp *interp, Tcl_Command cmd) {
+  register Tcl_CallFrame *varFramePtr = (Tcl_CallFrame *)Tcl_Interp_varFramePtr(interp);
+
+  for (; varFramePtr; varFramePtr = Tcl_CallFrame_callerPtr(varFramePtr)) {
+    if (Tcl_CallFrame_isProcCallFrame(varFramePtr) & FRAME_IS_XOTCL_METHOD) {
+      XOTclCallStackContent *csc = (XOTclCallStackContent *)Tcl_CallFrame_clientData(varFramePtr);
+      if (csc->cmdPtr == cmd) {
+        csc->cmdPtr = NULL;
+      }
+    }
+  }
+}
+
 #endif /* TCL85STACK */