diff --git a/ghc/tests/io/should_run/io033.hs b/ghc/tests/io/should_run/io033.hs
index 33c9ed7e59ea662fb9191cb41f507b7a503af1d7..0e8620ce0399b72672ec9d0c637c9846e8157e49 100644
--- a/ghc/tests/io/should_run/io033.hs
+++ b/ghc/tests/io/should_run/io033.hs
@@ -24,4 +24,4 @@ slurp [] = return ()
 slurp (x:xs) = x `seq` slurp xs
 
 main :: IO ()
-main = sequence_ (take 50 (repeat doTest))
+main = sequence_ (take 200 (repeat doTest))