X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fwin32%2FIOManager.c;h=6af42456aef203a80e816d613eadf3f0833fd7e0;hb=a60af39758448f92d8eaa3b62072f9adcdbbee9d;hp=764be698722627b2b92c5cbfa20ae04b38e919ff;hpb=de6c8e5293c9ef68b597ab2e6d55c3f42a283489;p=ghc-hetmet.git

diff --git a/rts/win32/IOManager.c b/rts/win32/IOManager.c
index 764be69..6af4245 100644
--- a/rts/win32/IOManager.c
+++ b/rts/win32/IOManager.c
@@ -190,7 +190,7 @@ IOWorkerProc(PVOID param)
 		     * 
 		     * Note: Sleep() is in milliseconds, not micros.
 		     */
-		    Sleep(work->workData.delayData.msecs / 1000);
+		    Sleep((work->workData.delayData.msecs + 999) / 1000);
 		    len = work->workData.delayData.msecs;
 		    complData = NULL;
 		    fd = 0;