Index: /trunk/ccl/lisp-kernel/lisp-exceptions.c
===================================================================
--- /trunk/ccl/lisp-kernel/lisp-exceptions.c	(revision 871)
+++ /trunk/ccl/lisp-kernel/lisp-exceptions.c	(revision 872)
@@ -2740,4 +2740,5 @@
   }
   lock_acquire(mach_exception_lock_set, 0);
+  thread_abort_safely(mach_thread);
   lss = create_thread_context_frame(mach_thread, NULL);
   lss->uc_onstack = 0;