Index: generic/nsfStack.c =================================================================== diff -u -rfbf70aa67bec4deec1078074787aafb8b66b2dde -r60604f6962105d881e376602217c2719caa1167d --- generic/nsfStack.c (.../nsfStack.c) (revision fbf70aa67bec4deec1078074787aafb8b66b2dde) +++ generic/nsfStack.c (.../nsfStack.c) (revision 60604f6962105d881e376602217c2719caa1167d) @@ -726,7 +726,9 @@ static void CallStackPopAll(Tcl_Interp *interp) { - NsfShowStack(interp); + if (RUNTIME_STATE(interp)->debugLevel > 1) { + NsfShowStack(interp); + } while (1) { Tcl_CallFrame *framePtr = Tcl_Interp_framePtr(interp);