Index: /trunk/ccl/lisp-kernel/lisp-exceptions.c
===================================================================
--- /trunk/ccl/lisp-kernel/lisp-exceptions.c	(revision 869)
+++ /trunk/ccl/lisp-kernel/lisp-exceptions.c	(revision 870)
@@ -2759,4 +2759,5 @@
   tcr->suspend_context = NULL;
   restore_mach_thread_state(mach_thread, xp);
+  thread_resume(mach_thread);
   lock_release(mach_exception_lock_set,0);
 }