X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=8e3981487373e3d3be4cf412fa635e6edfd667cc;hb=9142c238bd014c45e30fc79eee69fa6ab3f469d8;hp=f6a9ef2c49b9325a54623f39b00680a3ee89210e;hpb=b7212d4b53d12523c72cefe0d5cc3d318d3399a7;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index f6a9ef2..8e39814 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1607,7 +1607,8 @@ forkProcess(HsStablePtr *entry
 	// Wipe our spare workers list, they no longer exist.  New
 	// workers will be created if necessary.
 	cap->spare_workers = NULL;
-	cap->returning_tasks_hd = NULL;
+        cap->n_spare_workers = 0;
+        cap->returning_tasks_hd = NULL;
 	cap->returning_tasks_tl = NULL;
 #endif