2 files changed, 2 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 6cc8ded..6cfe6d1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,7 @@
 	* generic/tclBinary.c:	Backport fix for [Bug 2857044].
 	* generic/tclDictObj.c:	All freeIntRepProcs set typePtr to NULL.
 	* generic/tclEncoding.c:
+	* generic/tclIndexObj.c:
 	* generic/tclListObj.c:
 	* generic/tclNamesp.c:
 	* generic/tclObj.c:
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c
index ce25a12..595132c 100644
--- a/generic/tclIndexObj.c
+++ b/generic/tclIndexObj.c
@@ -397,6 +397,7 @@ FreeIndex(
     Tcl_Obj *objPtr)
 {
     ckfree((char *) objPtr->internalRep.otherValuePtr);
+    objPtr->typePtr = NULL;
 }
 
 /*