From 97ef187e5b07fc14f06183a402e5d0f286854913 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Tue, 8 Jan 2019 13:35:03 +0000
Subject: closes [cc1e91552c]: fixes lrange instruction on empty list, return
 original list only if it is canonical (otherwise new list object)

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

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index bb96a9e..cd78adf 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -5237,8 +5237,12 @@ TEBCresume(
 
 	/* Every range of an empty list is an empty list */
 	if (objc == 0) {
-	    TRACE_APPEND(("\n"));
-	    NEXT_INST_F(9, 0, 0);
+	    /* avoid return of not canonical list (e. g. spaces in string repr.) */
+	    if (ListObjIsCanonical(valuePtr)) {
+		TRACE_APPEND(("\n"));
+		NEXT_INST_F(9, 0, 0);
+	    }
+	    goto emptyList;
 	}
 
 	/* Decode index value operands. */
-- 
cgit v0.12