diff --git a/collects/mred/private/wx/cocoa/filedialog.rkt b/collects/mred/private/wx/cocoa/filedialog.rkt
index 22d161ac46..d73cc60d0a 100644
--- a/collects/mred/private/wx/cocoa/filedialog.rkt
+++ b/collects/mred/private/wx/cocoa/filedialog.rkt
@@ -41,11 +41,11 @@
         (let ([a (tell NSArray 
                        arrayWithObjects: #:type (_list i _NSString) extensions
                        count: #:type _NSUInteger (length extensions))])
-          (tellv ns setAllowedFileTypes: a))))
-    (let ([others? (ormap (lambda (e)
-                            (equal? (cadr e) "*.*"))
-                          filters)])
-      (tellv ns setAllowsOtherFileTypes: #:type _BOOL others?))
+          (tellv ns setAllowedFileTypes: a))
+        (let ([others? (ormap (lambda (e)
+                                (equal? (cadr e) "*.*"))
+                              filters)])
+          (tellv ns setAllowsOtherFileTypes: #:type _BOOL others?))))
 
     (cond
      [(memq 'multi style)