Index: /trunk/ccl/lisp-kernel/thread_manager.c
===================================================================
--- /trunk/ccl/lisp-kernel/thread_manager.c	(revision 570)
+++ /trunk/ccl/lisp-kernel/thread_manager.c	(revision 571)
@@ -320,5 +320,5 @@
 #endif
 #ifdef DARWIN
-  semaphore_t s;
+  semaphore_t s = (semaphore_t)0;
   semaphore_create(mach_task_self(),&s, SYNC_POLICY_FIFO, count);
   return (void *)s;