Make sure ListObjReplace invalidates outdated intreps.

1 files changed, 7 insertions, 2 deletions

diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index fc253cc..f60329d 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -1127,10 +1127,15 @@ Tcl_ListObjReplace(
     listRepPtr->elemCount = numRequired;
 
     /*
-     * Invalidate and free any old string representation since it no longer
-     * reflects the list's internal representation.
+     * Invalidate and free any old representations that may not agree
+     * with the revised list's internal representation.
      */
 
+    listRepPtr->refCount++;
+    TclFreeIntRep(listPtr);
+    ListSetIntRep(listPtr, listRepPtr);
+    listRepPtr->refCount--;
+
     TclInvalidateStringRep(listPtr);
     return TCL_OK;
 }