diff --git a/collects/mred/private/wx/cocoa/window.rkt b/collects/mred/private/wx/cocoa/window.rkt
index dbe29c728a..d385d961fd 100644
--- a/collects/mred/private/wx/cocoa/window.rkt
+++ b/collects/mred/private/wx/cocoa/window.rkt
@@ -810,8 +810,9 @@
   (do-request-flush-delay 
    cocoa-win
    (lambda (cocoa-win)
-     (tellv cocoa-win disableFlushWindow)
-     #t)
+     (and (tell #:type _bool cocoa-win isVisible)
+          (tellv cocoa-win disableFlushWindow)
+          #t))
    (lambda (cocoa-win)
      (tellv cocoa-win enableFlushWindow))))