avoid a fork deadlock (see comments)

1 files changed, 7 insertions, 0 deletions

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 70e0246fbe..e3d025a180 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1713,6 +1713,13 @@ forkProcess(HsStablePtr *entry
 		// exception, but we do want to raiseAsync() because these
 		// threads may be evaluating thunks that we need later.
 		deleteThread_(cap,t);
+
+                // stop the GC from updating the InCall to point to
+                // the TSO.  This is only necessary because the
+                // OSThread bound to the TSO has been killed, and
+                // won't get a chance to exit in the usual way (see
+                // also scheduleHandleThreadFinished).
+                t->bound = NULL;
 	    }
           }
 	}