From 6b7dccabf9f9804049494bf42d0b72cf5a3f9a90 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Sun, 12 May 2013 00:04:27 +0000
Subject: Fix implementation of INST_LIST_EXPANDED.

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

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index afde900..f994ba5 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -4443,7 +4443,11 @@ TEBCresume(
 	POP_TAUX_OBJ();
 	objResultPtr = Tcl_NewListObj(objc, &OBJ_AT_DEPTH(objc-1));
 	TRACE_WITH_OBJ(("(%u) => ", objc), objResultPtr);
-	NEXT_INST_V(1, objc, 1);
+	while (objc--) {
+	    valuePtr = POP_OBJECT();
+	    TclDecrRefCount(valuePtr);
+	}
+	NEXT_INST_F(1, 0, 1);
 
     case INST_LIST_LENGTH:
 	valuePtr = OBJ_AT_TOS;
-- 
cgit v0.12