From a665239689cda5ee7932e38c8d160edfd8dba73a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 21 Dec 2012 15:50:43 -0700
Subject: [PATCH] places: fix subprocess-reaping thread creation

Before the repair, a new thread was created with each
subprocess.
---
 src/racket/src/place.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/racket/src/place.c b/src/racket/src/place.c
index 26c4ab8405..196e58f39c 100644
--- a/src/racket/src/place.c
+++ b/src/racket/src/place.c
@@ -1029,6 +1029,7 @@ void scheme_starting_child()
 
     signal_thread = mz_proc_thread_create(mz_proc_thread_signal_worker, NULL);
     mz_proc_thread_detach(signal_thread);
+    started_thread = 1;
   }
 
   pending_children++;