Index: generic/xotclStack85.c =================================================================== diff -u -rf3a84ed90cf24565e3bae87abfe8185acc0e9cc4 -r4bed7e95551d4d44fa8348c9f18e22dae85423fe --- generic/xotclStack85.c (.../xotclStack85.c) (revision f3a84ed90cf24565e3bae87abfe8185acc0e9cc4) +++ generic/xotclStack85.c (.../xotclStack85.c) (revision 4bed7e95551d4d44fa8348c9f18e22dae85423fe) @@ -116,7 +116,7 @@ */ static Tcl_CallFrame * -activeProcFrame(Tcl_CallFrame *framePtr, int skipFrames) { +activeProcFrame(Tcl_CallFrame *framePtr) { for (; framePtr; framePtr = Tcl_CallFrame_callerPtr(framePtr)) { register int flag = Tcl_CallFrame_isProcCallFrame(framePtr); @@ -125,7 +125,7 @@ if (!(((XOTclCallStackContent *)Tcl_CallFrame_clientData(framePtr))->frameType & XOTCL_CSC_TYPE_INACTIVE)) break; } else { - if (flag & skipFrames) continue; + if (flag & (FRAME_IS_XOTCL_CMETHOD|FRAME_IS_XOTCL_OBJECT)) continue; if (flag == 0 || flag & FRAME_IS_PROC) break; } } @@ -258,8 +258,7 @@ tcl85showStack(interp); # endif /* Get the first active non object frame */ - framePtr = activeProcFrame(inFramePtr, - FRAME_IS_XOTCL_CMETHOD|FRAME_IS_XOTCL_OBJECT); + framePtr = activeProcFrame(inFramePtr); /*fprintf(stderr,"... use frameptr %p \n", framePtr);*/