From d29536641dcd82c9373cc5835f9fd879194620e8 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 11 Jun 2013 17:58:49 +0000
Subject: Stack housekeeping repair for last checkin.

---
 generic/tclCompCmdsSZ.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c
index b9ee1d4..6897b9b 100644
--- a/generic/tclCompCmdsSZ.c
+++ b/generic/tclCompCmdsSZ.c
@@ -2005,6 +2005,8 @@ TclCompileThrowCmd(
 	OP1(			JUMP_FALSE1, 16);
 	OP4(			LIST, 2);
 	OP44(			RETURN_IMM, 1, 0);
+	TclAdjustStackDepth(2, envPtr);
+	OP(			POP);
 	OP(			POP);
 	OP(			POP);
     issueErrorForEmptyCode:
-- 
cgit v0.12