diff --git a/pkgs/drracket-pkgs/drracket-test/tests/drracket/no-write-and-frame-leak.rkt b/pkgs/drracket-pkgs/drracket-test/tests/drracket/no-write-and-frame-leak.rkt
index f6a4fb9f22..c3034cf15f 100644
--- a/pkgs/drracket-pkgs/drracket-test/tests/drracket/no-write-and-frame-leak.rkt
+++ b/pkgs/drracket-pkgs/drracket-test/tests/drracket/no-write-and-frame-leak.rkt
@@ -189,7 +189,13 @@ This test checks:
   (define new-tabs2 (send drr2 get-tabs))
   (check-equal? new-tabs2 tabs)
 
-  (test:menu-select "File" (if (eq? (system-type) 'unix) "Close" "Close Window"))
+  (cond
+    [(eq? (system-type) 'unix)
+     (for ([_ (in-range (length tabs))])
+       (test:menu-select "File" "Close"))]
+    [else
+     (test:menu-select "File" "Close Window")])
+
   (wait-for-new-frame drr2))
 
 (define (check-log-panel drr)