diff options
-rw-r--r-- | generic/tclExecute.c | 3 |
1 files changed, 3 insertions, 0 deletions
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); |