X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FSchedule.c;h=998d8465a7963df1e89444713be37cd6f4c65651;hp=539e006fa649d8148378faa0b550794d035e03fa;hb=3501ac6af749ada0afcaf84f112ab2e4bf9120b9;hpb=7068f60cc7aefef514f02d5927d5abbdcd5c94d4

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 539e006..998d846 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1683,6 +1683,10 @@ forkProcess(HsStablePtr *entry
         initTimer();
         startTimer();
 
+#if defined(THREADED_RTS)
+        cap = ioManagerStartCap(cap);
+#endif
+
 	cap = rts_evalStableIO(cap, entry, NULL);  // run the action
 	rts_checkSchedStatus("forkProcess",cap);