From d852753be2883cd493304baf8fe53eaf7920df1f Mon Sep 17 00:00:00 2001
From: apnadkarni <apnmbx-wits@yahoo.com>
Date: Tue, 11 Jul 2023 12:59:13 +0000
Subject: Wrap DECACHE_STACK_INFO around Tcl_ListObjIndex call from bytecode
 engine.

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

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index b74c74a..84331a3 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -6553,12 +6553,15 @@ TEBCresume(
 		    if (valIndex >= listLen) {
 			TclNewObj(valuePtr);
 		    } else {
+			DECACHE_STACK_INFO();
 			status = Tcl_ListObjIndex(
 			    interp, listPtr, valIndex, &valuePtr);
 			if (status != TCL_OK) {
 			    /* Could happen for abstract lists */
+			    CACHE_STACK_INFO();
 			    goto gotError;
 			}
+			CACHE_STACK_INFO();
 			if (valuePtr == NULL) {
 			    /* Permitted for Tcl_LOI to return NULL */
 			    TclNewObj(valuePtr);
-- 
cgit v0.12