Index: generic/tclVar.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclVar.c,v
retrieving revision 1.65
diff -r1.65 tclVar.c
3553a3554,3556
> 	    if (varFramePtr == NULL || !varFramePtr->isProcCallFrame) {
> 		varPtr->refCount--;
> 	    }
3560a3564,3567
>     if (varFramePtr == NULL || !varFramePtr->isProcCallFrame) {
> 	varPtr->flags |= VAR_NAMESPACE_VAR;
> 	varPtr->refCount++;
>     }
