Index: /trunk/ccl/lisp-kernel/thread_manager.c
===================================================================
--- /trunk/ccl/lisp-kernel/thread_manager.c	(revision 5163)
+++ /trunk/ccl/lisp-kernel/thread_manager.c	(revision 5164)
@@ -272,10 +272,16 @@
 
   if (signo == thread_suspend_signal) {
+#if 0
     sigset_t wait_for;
+#endif
 
     tcr->suspend_context = context;
+#if 0
     sigfillset(&wait_for);
+#endif
     SEM_RAISE(tcr->suspend);
+#if 0
     sigdelset(&wait_for, thread_resume_signal);
+#endif
 #if 1
 #if RESUME_VIA_RESUME_SEMAPHORE