From 669232d35a8574c6433ea5f0bd246baf553f5cba Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 14 Feb 2012 14:27:40 -0700
Subject: [PATCH] fix test to not write to stderr

original commit: 08303d9db827a037db98df57833766cd073116db
---
 collects/tests/gracket/paramz.rktl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/tests/gracket/paramz.rktl b/collects/tests/gracket/paramz.rktl
index ad5dbe1f..d9a22186 100644
--- a/collects/tests/gracket/paramz.rktl
+++ b/collects/tests/gracket/paramz.rktl
@@ -109,7 +109,9 @@
 ;;  Check that breaking an eventspace thread doesn't kill it:
 
 (let ()
-  (define evtsp (make-eventspace))
+  (define o (open-output-bytes))
+  (define evtsp (parameterize ([current-error-port o])
+                  (make-eventspace)))
   (define evtth (eventspace-handler-thread evtsp))
   
   (sleep 0.1)