From 3dda2492c271ae898118c051dff46bbb7dafcf2d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 8 Apr 2011 07:09:41 -0600
Subject: [PATCH] fix subprocess bug with places

---
 src/racket/src/places.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/places.c b/src/racket/src/places.c
index 53c7bcc391..a2c46494a9 100644
--- a/src/racket/src/places.c
+++ b/src/racket/src/places.c
@@ -558,7 +558,7 @@ void scheme_done_with_process_id(int pid, int is_group)
       
   if (st && (keep_unused || st->done)) {
     /* remove it from normal list: */
-    raw_get_child_status(pid, NULL, 0, 1, !st->done);
+    raw_get_child_status(pid, NULL, 0, 1, st->done);
   }
 
   mzrt_mutex_unlock(child_status_lock);