stupid bug that only breaks the test suite sometimes

svn: r14905 original commit: 5e84de91664f2959148d147ed1989746e5e181b7
2009-05-21 20:14:03 +00:00 · 2009-05-21 20:14:03 +00:00 · d56c8acbe2
commit d56c8acbe2
parent 67f573699a
1 changed files with 3 additions and 2 deletions
--- 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))))