diff options
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index ea0b145..e9494d9 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4697,7 +4697,7 @@ TEBCresume( if ((TclListObjGetElementsM(interp, valuePtr, &objc, &objv) == TCL_OK) && ( !TclHasInternalRep(value2Ptr, &tclListType.objType) - || + || ((Tcl_ListObjLength(interp,value2Ptr,&value2Length), value2Length == 1 ? (indexListPtr = TclListObjGetElement(value2Ptr, 0), 1) |