Subject: Fix implementation of INST_LIST_EXPANDED.

From: dkf <[email-masked]>
Date: Sun, 12 May 2013 00:04:27 +0000

---
 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