diff --git a/collects/framework/private/scheme.rkt b/collects/framework/private/scheme.rkt
index 5d46dc65..e9da20f0 100644
--- a/collects/framework/private/scheme.rkt
+++ b/collects/framework/private/scheme.rkt
@@ -1220,7 +1220,7 @@
     
     (define/override (put-file text sup directory default-name)
       (parameterize ([finder:default-extension "rkt"]
-                     [finder:default-filters '(["Racket Sources" "*.rkt;*.ss;*.scm"]
+                     [finder:default-filters '(["Racket Sources" "*.rkt;*.scrbl;*.ss;*.scm"]
                                                ["Any" "*.*"])])
         ;; don't call the surrogate's super, since it sets the default extension
         (sup directory default-name)))