From bc87d9a2bc25805bbeda05983b9a403d0767fb1f Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 21 Jun 2023 21:30:53 +0000
Subject: Fix 3 "lset" testcases

---
 generic/tclListObj.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index d3e4f02..0fd489c 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -2871,6 +2871,9 @@ TclLsetFlat(
 	}
 	indexArray++;
 
+	if ((index == INT_MAX) && (elemCount == 0)) {
+	    index = 0;
+	}
 	if (index < 0 || index > elemCount
 	    || (valueObj == NULL && index >= elemCount)) {
 	    /* ...the index points outside the sublist. */
-- 
cgit v0.12