Index: /trunk/ccl/lisp-kernel/lisp-exceptions.c
===================================================================
--- /trunk/ccl/lisp-kernel/lisp-exceptions.c	(revision 661)
+++ /trunk/ccl/lisp-kernel/lisp-exceptions.c	(revision 662)
@@ -2080,8 +2080,4 @@
   char s[512];
  
-  if (threads_initialized) {
-    suspend_other_threads();
-  }
-
   va_start(args, format);
   vsnprintf(s, sizeof(s),format, args);
@@ -2089,7 +2085,4 @@
   lisp_Debugger(NULL, debug_entry_bug, s);
 
-  if (threads_initialized) {
-    resume_other_threads();
-  }
 }