diff --git a/collects/mred/private/wx/common/queue.rkt b/collects/mred/private/wx/common/queue.rkt
index 9b89545600..773e327380 100644
--- a/collects/mred/private/wx/common/queue.rkt
+++ b/collects/mred/private/wx/common/queue.rkt
@@ -554,7 +554,7 @@
                 (let ([status (send (car frames) frame-relative-dialog-status win)])
                   (case status
                     [(#f) (loop (cdr frames))]
-                    [(same) #f]
+                    [(same) (loop (cdr frames))]
                     [(other) #t]))))))))
 
 (define (eventspace-adjust-external-modal! es amt)