diff --git a/collects/tests/drracket/drracket-test-util.rkt b/collects/tests/drracket/drracket-test-util.rkt
index 8029bb2601..97644bd251 100644
--- a/collects/tests/drracket/drracket-test-util.rkt
+++ b/collects/tests/drracket/drracket-test-util.rkt
@@ -151,7 +151,8 @@
 	      (fw:test:reraise-error)
 	      (send (send frame get-execute-button) is-enabled?))])
       ;(poll-until wait-for-computation-to-start 60) ;; hm.
-      (poll-until wait-for-computation-to-finish 60)))
+      (poll-until wait-for-computation-to-finish 60)
+      (sync (system-idle-evt))))
 
   (define do-execute 
     (case-lambda