2 files changed, 3 insertions, 0 deletions
diff --git a/changes b/changes
index 7376ba6..5d6ef97 100644
--- a/changes
+++ b/changes
@@ -7788,4 +7788,6 @@ Many revisions to better support a Cygwin environment (nijtmans)
 
 2013-09-07 (bug fix)[86ceb4] have tm path favor first provider (neumann,porter)
 
+2013-09-13 (bug fix)[bdd91c] crash in exec stack mem management (azazel)
+
 --- Released 8.5.15, September 16, 2013 --- http://core.tcl.tk/tcl/ for details
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 8fb8e63..e657828 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -2311,6 +2311,7 @@ TclExecuteByteCode(
 
 	    initCatchTop += moved;
 	    catchTop += moved;
+	    bcFramePtr = (CmdFrame *) (initCatchTop + codePtr->maxExceptDepth + 1);
 	    initTosPtr += moved;
 	    tosPtr += moved;
 	    esPtr = iPtr->execEnvPtr->execStackPtr;