Index: generic/xotclStack85.c =================================================================== diff -u -r7cb7c751d63fe0eece5756910e3f0b18e61a4d16 -r58c2c3096136af10d87e4d2962c3d744a9e383bd --- generic/xotclStack85.c (.../xotclStack85.c) (revision 7cb7c751d63fe0eece5756910e3f0b18e61a4d16) +++ generic/xotclStack85.c (.../xotclStack85.c) (revision 58c2c3096136af10d87e4d2962c3d744a9e383bd) @@ -286,13 +286,12 @@ Tcl_CallFrame *framePtr = Tcl_Interp_framePtr(interp); if (!framePtr) break; if (Tcl_CallFrame_level(framePtr) == 0) break; -#if 1 + if (Tcl_CallFrame_isProcCallFrame(framePtr) & (FRAME_IS_XOTCL_METHOD|FRAME_IS_XOTCL_CMETHOD)) { /* free the call stack content; we need this just for decr activation count */ XOTclCallStackContent *csc = ((XOTclCallStackContent *)Tcl_CallFrame_clientData(framePtr)); CallStackPop(interp, csc); } -#endif /* pop the Tcl frame */ Tcl_PopCallFrame(interp); }