Index: generic/nsf.c =================================================================== diff -u -r0f58115b7fe14c5ca782330495b4847d6600cf04 -r869a425be1ccd173b0adb88d916232247073dd4b --- generic/nsf.c (.../nsf.c) (revision 0f58115b7fe14c5ca782330495b4847d6600cf04) +++ generic/nsf.c (.../nsf.c) (revision 869a425be1ccd173b0adb88d916232247073dd4b) @@ -9230,7 +9230,7 @@ if (pattern == NULL || Tcl_StringMatch(ClassName_(class), pattern)) { Tcl_Obj *listObj = Tcl_NewListObj(0, NULL); Tcl_Obj *g = (Tcl_Obj *)clientData; - + INCR_REF_COUNT(listObj); Tcl_ListObjAppendElement(interp, listObj, class->object.cmdName); Tcl_ListObjAppendElement(interp, listObj, NsfGlobalObjs[NSF_GUARD_OPTION]); @@ -12001,13 +12001,13 @@ Namespace *oldNsPtr = procPtr->cmdPtr->nsPtr; procPtr->cmdPtr->nsPtr = nsPtr; -#endif +#endif result = TclProcCompileProc(interp, procPtr, bodyObj, (Namespace *) nsPtr, "body of proc", procName); -#if defined(PRE86) +#if defined(PRE86) procPtr->cmdPtr->nsPtr = oldNsPtr; -#endif +#endif } /*fprintf(stderr, "compiling '%s' with ns %s DONE\n", procName, nsPtr->name);*/ *flagsPtr &= ~NSF_CSC_CALL_IS_COMPILE;