From bc22dd5f451d858e97caecf378fd8d0d11c058b2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 11 Jan 2004 16:35:47 +0000
Subject: [PATCH] .

original commit: 8e6f98b6de8bc623b05e28d59df77aa556e6dd65
---
 collects/mzlib/cml.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/cml.ss b/collects/mzlib/cml.ss
index 593822f..9eafa5b 100644
--- a/collects/mzlib/cml.ss
+++ b/collects/mzlib/cml.ss
@@ -43,7 +43,8 @@
        (let ([s (make-semaphore)])
 	 (thread-resume (thread/suspend-to-kill
 			 (lambda ()
-			   (sleep (max 0 (- t (current-seconds))))
+			   (object-wait-multiple (max 0 (- t (current-seconds)))
+						 nack)
 			   (semaphore-post s)))
 			(current-thread))
 	 (make-wrapped-waitable s void)))))