diff --git a/collects/framework/private/scheme.rkt b/collects/framework/private/scheme.rkt
index 96c002c0..f704fde9 100644
--- a/collects/framework/private/scheme.rkt
+++ b/collects/framework/private/scheme.rkt
@@ -1186,7 +1186,7 @@
            (values lexeme type paren start end backup-delta mode)))))
     
     (define/override (put-file text sup directory default-name)
-      (parameterize ([finder:default-extension "ss"]
+      (parameterize ([finder:default-extension "rkt"]
                      [finder:default-filters '(["Racket Sources" "*.rkt;*.ss;*.scm"]
                                                ["Any" "*.*"])])
         ;; don't call the surrogate's super, since it sets the default extension