Index: /trunk/ccl/level-1/l1-lisp-threads.lisp
===================================================================
--- /trunk/ccl/level-1/l1-lisp-threads.lisp	(revision 5483)
+++ /trunk/ccl/level-1/l1-lisp-threads.lisp	(revision 5484)
@@ -52,8 +52,7 @@
           (if (and (< result 0)
                    (eql (%get-errno) (- #$EINTR))
-                   (not (and (eql (pref bptr :timespec.tv_sec) 0)
-                             (eql (pref bptr :timespec.tv_nsec) 0))))
-		(psetq aptr bptr bptr aptr)
-		(return)))))))
+                   (%valid-remaining-timespec-time-p seconds bptr))
+            (psetq aptr bptr bptr aptr)
+            (return)))))))