--- acl-mp.lisp.bak     2005-08-01 13:19:50.000000000 +0300
+++ acl-mp.lisp 2005-08-06 17:43:40.000000000 +0300
@@ -248,7 +248,7 @@
   ;; TODO: set process-whostate
   ;; Can't figure out how to safely block a thread from a different one
   ;; and handle all the locking nastiness.  So punt for now.
-  (if (eql (sb-thread:current-thread-id) (process-id process))
+  (if (eql sb-thread:*current-thread* (process-id process))
       ;; Keep waiting until we have a reason to run.  GC and other
       ;; things can break a wait prematurely.  Don't know if this is
       ;; expected or not.