Index: /trunk/ccl/level-1/l1-processes.lisp
===================================================================
--- /trunk/ccl/level-1/l1-processes.lisp	(revision 480)
+++ /trunk/ccl/level-1/l1-processes.lisp	(revision 481)
@@ -392,5 +392,6 @@
                  (when (apply function args)
                    (return))
-                 (yield)))
+		   ;; Sleep for a tick
+		   (%nanosleep 0 *ns-per-tick*)))
           (setf (%process-whostate p) old-whostate)))))