From 094cbec1c7d756626ebe0c65c873165a33dc171d Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 13 Jul 2016 15:43:44 +0000
Subject: another one

---
 generic/tclNamesp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c
index 43f2c1a..dd6ba55 100644
--- a/generic/tclNamesp.c
+++ b/generic/tclNamesp.c
@@ -2907,7 +2907,7 @@ GetNamespaceFromObj(
 	    *nsPtrPtr = (Tcl_Namespace *) nsPtr;
 	    return TCL_OK;
 	}
-	TclFreeIntRep(objPtr);
+	Tcl_StoreIntRep(objPtr, &nsNameType, NULL);
     }
     if (SetNsNameFromAny(interp, objPtr) == TCL_OK) {
 	NsNameGetIntRep(objPtr, resNamePtr);
-- 
cgit v0.12