diff --git a/tests/fork/hpc_fork.hs b/tests/fork/hpc_fork.hs
index bfcf6f1da6b1bf8353147998c3e226f86f97367e..ac912a83f21b812e897cc5e4464771c5c75a14f4 100644
--- a/tests/fork/hpc_fork.hs
+++ b/tests/fork/hpc_fork.hs
@@ -1,9 +1,10 @@
 module Main where
 
 import System.Posix.Process
+import Control.Concurrent
 
 main = do
-  pid1 <- forkProcess $ do print "Hello"
-  pid2 <- forkProcess $ do print "World"
+  pid1 <- forkProcess $ do threadDelay 100000
+  pid2 <- forkProcess $ do threadDelay 100000
   print ()
 
diff --git a/tests/fork/hpc_fork.stdout b/tests/fork/hpc_fork.stdout
index 5fe5a222fddcfcf203647d301ffe2d8db7c38666..14086d930d6f9908ef64c9de8806b0199ff2fe3c 100644
--- a/tests/fork/hpc_fork.stdout
+++ b/tests/fork/hpc_fork.stdout
@@ -1,6 +1,4 @@
 ()
-"Hello"
-"World"
 
 
  53% expressions used (7/13)
@@ -39,12 +37,13 @@ span.spaces    { background: white }
 <span class="lineno">    1 </span>module Main where
 <span class="lineno">    2 </span>
 <span class="lineno">    3 </span>import System.Posix.Process
-<span class="lineno">    4 </span>
-<span class="lineno">    5 </span><span class="decl"><span class="istickedoff">main = do</span>
-<span class="lineno">    6 </span><span class="spaces">  </span><span class="istickedoff">pid1 &lt;- forkProcess $ <span class="nottickedoff">do print &quot;Hello&quot;</span></span>
-<span class="lineno">    7 </span><span class="spaces">  </span><span class="istickedoff">pid2 &lt;- forkProcess $ <span class="nottickedoff">do print &quot;World&quot;</span></span>
-<span class="lineno">    8 </span><span class="spaces">  </span><span class="istickedoff">print ()</span></span>
-<span class="lineno">    9 </span>
+<span class="lineno">    4 </span>import Control.Concurrent
+<span class="lineno">    5 </span>
+<span class="lineno">    6 </span><span class="decl"><span class="istickedoff">main = do</span>
+<span class="lineno">    7 </span><span class="spaces">  </span><span class="istickedoff">pid1 &lt;- forkProcess $ <span class="nottickedoff">do threadDelay 100000</span></span>
+<span class="lineno">    8 </span><span class="spaces">  </span><span class="istickedoff">pid2 &lt;- forkProcess $ <span class="nottickedoff">do threadDelay 100000</span></span>
+<span class="lineno">    9 </span><span class="spaces">  </span><span class="istickedoff">print ()</span></span>
+<span class="lineno">   10 </span>
 
 </pre>
 </html>