1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c
index 8fb89cd..97aa7ab 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -5713,8 +5713,8 @@ FreeNsVarName(
 {
     register Var *varPtr = objPtr->internalRep.twoPtrValue.ptr2;
 
-    if (TclIsVarInHash(varPtr)) {
-	if ((varPtr->refCount-- == 1) && TclIsVarUndefined(varPtr)) {
+    if (TclIsVarInHash(varPtr) && TclIsVarUndefined(varPtr)) {
+	if ((varPtr->refCount-- <= 1)) {
 	    CleanupVar(varPtr, NULL);
 	}
     }