1 files changed, 0 insertions, 2 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c
index b735ba3..55c031c 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -703,7 +703,6 @@ TclObjLookupVarEx(
      */
 
     TclFreeIntRep(part1Ptr);
-    part1Ptr->typePtr = NULL;
 
     varPtr = TclLookupSimpleVar(interp, part1Ptr, flags, createPart1,
 	    &errMsg, &index);
@@ -2361,7 +2360,6 @@ TclPtrUnsetVar(
 
     if (part1Ptr->typePtr == &tclNsVarNameType) {
 	TclFreeIntRep(part1Ptr);
-	part1Ptr->typePtr = NULL;
     }
 #endif