diff --git a/gui-lib/mred/private/wx/common/queue.rkt b/gui-lib/mred/private/wx/common/queue.rkt
index d39d76474..00d91ac29 100644
--- a/gui-lib/mred/private/wx/common/queue.rkt
+++ b/gui-lib/mred/private/wx/common/queue.rkt
@@ -495,24 +495,25 @@
             (wait-now))]))]))
 
 (define (yield/no-sync)
-  (let ([e (current-eventspace)])
-    (when (eq? (current-thread) (eventspace-handler-thread e))
-      (let ([v (sync/timeout 0 ((eventspace-queue-proc e) #f #f #f))])
-        (if v
-            (begin (handle-event v e) #t)
-            #f)))))
-
-(define yield-refresh
-  (lambda ()
-    (let ([e (current-eventspace)])
-      (and (eq? (current-thread) (eventspace-handler-thread e))
-           (let loop ([result #f])
-             (let ([v (sync/timeout 0 ((eventspace-queue-proc e) #t #f #t))])
-               (if v
-                   (begin
-                     (handle-event v e)
-                     (loop #t))
-                   result)))))))
+  (define e (current-eventspace))
+  (and (eq? (current-thread) (eventspace-handler-thread e))
+       (let ([v (sync/timeout 0 ((eventspace-queue-proc e) #f #f #f))])
+         (if v
+             (begin
+               (handle-event v e)
+               #t)
+             #f))))
+
+(define (yield-refresh)
+  (define e (current-eventspace))
+  (and (eq? (current-thread) (eventspace-handler-thread e))
+       (let loop ([result #f])
+         (let ([v (sync/timeout 0 ((eventspace-queue-proc e) #t #f #t))])
+           (if v
+               (begin
+                 (handle-event v e)
+                 (loop #t))
+               result)))))
 
 (define (eventspace-event-evt [e (current-eventspace)])
   (unless (eventspace? e)