From 3f3c89a94712629db5dd879be46ee097e61b4944 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Sun, 11 Mar 2018 12:13:11 +0000
Subject: Screen out empty list value so that assertions are true.

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

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 839f6f4..ef64ac1 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -5239,6 +5239,12 @@ TEBCresume(
 	}
 #endif
 
+	/* Every range of an empty list is an empty list */
+	if (objc == 0) {
+	    TRACE_APPEND(("\n"));
+	    NEXT_INST_F(9, 0, 0);
+	}
+
 	/* Decode index value operands. */
 
 	/* 
-- 
cgit v0.12