From e7a86d967ca214c536410f0d3c4b35fcf675fbc0 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Sat, 10 Mar 2018 14:44:05 +0000
Subject: Use LIST_MAX instead of computing an end index.

---
 generic/tclExecute.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 151a899..839f6f4 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -5282,8 +5282,8 @@ TEBCresume(
 		objResultPtr = Tcl_NewListObj(toIdx-fromIdx+1, objv+fromIdx);
 	    } else {
 		if (toIdx != objc - 1) {
-		    Tcl_ListObjReplace(NULL, valuePtr, toIdx + 1,
-			    objc - 1 - toIdx, 0, NULL);
+		    Tcl_ListObjReplace(NULL, valuePtr, toIdx + 1, LIST_MAX,
+			    0, NULL);
 		}
 		Tcl_ListObjReplace(NULL, valuePtr, 0, fromIdx, 0, NULL);
 		TRACE_APPEND(("%.30s\n", O2S(valuePtr)));
-- 
cgit v0.12