Index: b/test/Main.hs
===================================================================
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -144,5 +144,5 @@ bench = do
     endTime <- getCurrentTime
     let duration = endTime `diffUTCTime` startTime
     putStrLn $ "Creating and waiting for " ++ show count ++ " delays took " ++ show duration ++ "."
-    when (duration > 4.0) $
+    when (duration > 60.0) $
         fail $ "newDelay and waitDelay are too slow"
