Index: /trunk/source/level-1/l1-lisp-threads.lisp
===================================================================
--- /trunk/source/level-1/l1-lisp-threads.lisp	(revision 15357)
+++ /trunk/source/level-1/l1-lisp-threads.lisp	(revision 15358)
@@ -57,14 +57,5 @@
             (if (and (< result 0)
                      (eql (%get-errno) (- #$EINTR)))
-              ;; x86-64 Leopard bug.
-              (let* ((asec (pref aptr :timespec.tv_sec))
-                     (bsec (pref bptr :timespec.tv_sec)))
-                (if (and (>= bsec 0)
-                         (or (< bsec asec)
-                             (and (= bsec asec)
-                                  (< (pref bptr :timespec.tv_nsec)
-                                     (pref aptr :timespec.tv_nsec)))))
-                  (psetq aptr bptr bptr aptr)
-                  (return)))
+              (psetq aptr bptr bptr aptr)
               (return))))))))