From 904ad53bcc04a8e011a2e168389dbe29cd52fbcb Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Mon, 4 Aug 2008 18:32:29 +0000
Subject: fix "bad stack top" bug in last commit

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

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 0c77b9e..5d33e3c 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -14,7 +14,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclExecute.c,v 1.396 2008/08/04 14:09:31 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.397 2008/08/04 18:32:29 msofer Exp $
  */
 
 #include "tclInt.h"
@@ -1871,6 +1871,10 @@ TclExecuteByteCode(
 #endif
 		newPtr->nextPtr = bottomPtr->atExitPtr;
 		bottomPtr->atExitPtr = newPtr;
+		while (cleanup--) {
+		    Tcl_Obj *objPtr = POP_OBJECT();
+		    Tcl_DecrRefCount(objPtr);
+		}
 		goto nonRecursiveCallReturn;
 	    } else {
 		
-- 
cgit v0.12