1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c
index f45ae07..3c23358 100644
--- a/generic/tclAssembly.c
+++ b/generic/tclAssembly.c
@@ -3893,11 +3893,18 @@ BuildExceptionRanges(
 	prevPtr = bbPtr;
     }
 
+    /* Make sure that all catches are closed */
+
     if (catchDepth != 0) {
 	Tcl_Panic("unclosed catch at end of code in "
 		"tclAssembly.c:BuildExceptionRanges, can't happen");
     }
 
+    /* Free temp storage */
+
+    ckfree(catchIndices);
+    ckfree(catches);
+
     return TCL_OK;
 }