From 5e84de91664f2959148d147ed1989746e5e181b7 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 21 May 2009 20:14:03 +0000
Subject: [PATCH] stupid bug that only breaks the test suite sometimes

svn: r14905
---
 collects/tests/framework/test-suite-utils.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/tests/framework/test-suite-utils.ss b/collects/tests/framework/test-suite-utils.ss
index 8b6ccc504b..704d833a07 100644
--- a/collects/tests/framework/test-suite-utils.ss
+++ b/collects/tests/framework/test-suite-utils.ss
@@ -297,6 +297,7 @@
                 (and win
                      (string=? (send win get-label) ,name)))])
     (if eventspace
-        `(parameterize ([current-eventspace ,eventspace])
-           ,exp)
+        (wait-for
+         `(parameterize ([current-eventspace ,eventspace])
+            ,exp))
         (wait-for exp))))