From b97786c85dbd70fd4445f8161b205d5dbc56e844 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 19 Jan 2022 14:21:38 +0000
Subject: (partial) fix for
 [https://core.tcl-lang.org/tk/tktview?name=a9929f112a|a9929f112a]. WIP

---
 generic/tclUtil.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index 32721f6..86b6369 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -3647,12 +3647,15 @@ GetWideForIndex(
 	if (numType == TCL_NUMBER_INT) {
 	    /* objPtr holds an integer in the signed wide range */
 	    *widePtr = *(Tcl_WideInt *)cd;
+	    if (*widePtr < -1) {
+		*widePtr = -1;
+	    }
 	    return TCL_OK;
 	}
 	if (numType == TCL_NUMBER_BIG) {
 	    /* objPtr holds an integer outside the signed wide range */
 	    /* Truncate to the signed wide range. */
-	    *widePtr = ((mp_isneg((mp_int *)cd)) ? WIDE_MIN : WIDE_MAX);
+	    *widePtr = ((mp_isneg((mp_int *)cd)) ? -1 : WIDE_MAX);
 	    return TCL_OK;
 	}
     }
-- 
cgit v0.12