Index: generic/nsf.c =================================================================== diff -u -r2d51c0bc961490e76540807773bd4c48b4763015 -raf86f66d8c2d3bfe1f548726ca13c1cc72c64e90 --- generic/nsf.c (.../nsf.c) (revision 2d51c0bc961490e76540807773bd4c48b4763015) +++ generic/nsf.c (.../nsf.c) (revision af86f66d8c2d3bfe1f548726ca13c1cc72c64e90) @@ -5880,6 +5880,7 @@ void Nsf_DeleteNamespace(Tcl_Interp *interp, Tcl_Namespace *nsPtr) { +#if !defined(NDEBUG) int activationCount = 0; Tcl_CallFrame *f = (Tcl_CallFrame *)Tcl_Interp_framePtr(interp); @@ -5895,15 +5896,14 @@ f = Tcl_CallFrame_callerPtr(f); } -#if !defined(NDEBUG) + if (Tcl_Namespace_activationCount(nsPtr) != activationCount) { fprintf(stderr, "WE HAVE TO FIX ACTIVATIONCOUNT\n"); Tcl_Namespace_activationCount(nsPtr) = activationCount; } -#endif assert(Tcl_Namespace_activationCount(nsPtr) == activationCount); - /*fprintf(stderr, "to %d. \n", ((Namespace *)nsPtr)->activationCount);*/ +#endif if (Tcl_Namespace_deleteProc(nsPtr)) { /*fprintf(stderr, "calling deteteNamespace %s\n", nsPtr->fullName);*/