From 100212cd53189f27efb0bde8b7fb47e1e86a04aa Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 26 Jul 2012 10:53:56 -0600
Subject: [PATCH] another repair to `subprocess' test

Merge to v5.3
---
 collects/tests/racket/subprocess.rktl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/tests/racket/subprocess.rktl b/collects/tests/racket/subprocess.rktl
index 5661042d0f..f60af9af4e 100644
--- a/collects/tests/racket/subprocess.rktl
+++ b/collects/tests/racket/subprocess.rktl
@@ -392,9 +392,11 @@
          (let ([c (make-custodian)])
            (let ([l (parameterize ([current-custodian c])
                       (process* self
+                                "-e" "0"
                                 "-e"
                                 "(let loop () (loop))"))])
              (test 'running (list-ref l 4) 'status)
+             (read-line (car l)) ; wait until running
              (custodian-shutdown-all c)
              (sleep 0.1)
              (when (and wait?