...

original commit: 8c1c8dd9e38ccb85395f565ce58a993689a1bc25

collects/framework/private/finder.ss

@@ -45,7 +45,7 @@
 	  (let-values ([(base _1 _2) (split-path dir)])
 	    (or base dir))))
 
-      (define default-filters (make-parameter '(("Scheme (.scm)" "*.scm") ("Other" "*.*"))))
+      (define default-filters (make-parameter '(("Any" "*.*"))))
       (define default-extension (make-parameter ""))
 
       ; the finder-dialog% class controls the user interface for dialogs

collects/framework/private/sig.ss

@@ -103,6 +103,7 @@
   (define-signature framework:finder^
     (dialog-parent-parameter
      default-extension
+     default-filters
      common-put-file 
      common-get-file 
      std-put-file