diff --git a/collects/drracket/private/frame.rkt b/collects/drracket/private/frame.rkt
index 1551d12eb5..ab8d77a8ee 100644
--- a/collects/drracket/private/frame.rkt
+++ b/collects/drracket/private/frame.rkt
@@ -360,7 +360,13 @@
     ;; browse : -> void
     ;; gets the name of a file from the user and updates file-text-field
     (define (browse)
-      (let ([filename (finder:get-file #f "" #f "" dialog)])
+      (let ([filename (parameterize ([finder:default-extension "plt"]
+                                     [finder:default-filters
+                                      (if (eq? (system-type) 'macosx)
+                                          (finder:default-filters)
+                                          '(("PLT Files" "*.plt")
+                                            ("Any" "*.*")))])
+                        (finder:get-file #f "" #f "" dialog))])
         (when filename
           (send file-text-field set-value (path->string filename)))))
     ;; from-web? : -> boolean
diff --git a/collects/framework/main.rkt b/collects/framework/main.rkt
index c383944b42..ed52b54432 100644
--- a/collects/framework/main.rkt
+++ b/collects/framework/main.rkt
@@ -486,8 +486,8 @@
   (parameter/c string?)
   extension
   @{This parameter controls the default extension for the framework's
-    @racket[finder:put-file] dialog.  Its value gets passed as the
-    @racket[default-extension] argument to @racket[put-file].
+    @racket[finder:put-file] and @racket[finder:get-file] dialog.  Its value gets passed as the
+    @racket[_extension] argument to @racket[put-file] and @racket[get-file].
     
     Its default value is @racket[""].})