diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 30920fb9bd..3535effdb5 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -1183,7 +1183,8 @@
     
     (define/override (put-file text sup directory default-name)
       (parameterize ([finder:default-extension "ss"]
-                     [finder:default-filters '(("SCM" "*.scm") ("Any" "*.*"))])
+                     [finder:default-filters '(["Scheme Sources" "*.ss;*.scm"]
+                                               ["Any" "*.*"])])
         ;; don't call the surrogate's super, since it sets the default extension
         (sup directory default-name)))