From d56c8acbe221a3c8308708617d8f531e5ac60570 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 21 May 2009 20:14:03 +0000 Subject: [PATCH] stupid bug that only breaks the test suite sometimes svn: r14905 original commit: 5e84de91664f2959148d147ed1989746e5e181b7 --- 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 8b6ccc50..704d833a 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))))