Index: /trunk/ccl/lisp-kernel/lisp-exceptions.c
===================================================================
--- /trunk/ccl/lisp-kernel/lisp-exceptions.c	(revision 620)
+++ /trunk/ccl/lisp-kernel/lisp-exceptions.c	(revision 621)
@@ -2689,4 +2689,10 @@
 darwin_exception_cleanup(TCR *tcr)
 {
+  void *fxs = tcr->native_thread_info;
+
+  if (fxs) {
+    tcr->native_thread_info = NULL;
+    free(fxs);
+  }
   mach_port_destroy(mach_task_self(),(mach_port_t)tcr);
 }