X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsStartup.c;h=8e2eac420ddcf98ec250b4540d707217b8378db5;hb=bb7b45dcf16118fb03bf28aea08a168ac6598a33;hp=f0b2598734505d098f6ad712424847028f85fb09;hpb=849ce0c790ae8eeb636c722149993e7fb9766c9d;p=ghc-hetmet.git

diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index f0b2598..8e2eac4 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -370,7 +370,7 @@ hs_exit_(rtsBool wait_foreign)
 
     /* stop the ticker */
     stopTimer();
-    exitTimer();
+    exitTimer(wait_foreign);
 
     // set the terminal settings back to what they were
 #if !defined(mingw32_HOST_OS)