diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index af620bd0..8de12a21 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -749,7 +749,10 @@
               #t))
           (define/override file-menu:create-revert? (lambda () #t))
           (define file-menu:save-callback (lambda (item control)
-                                            (send (get-editor) save-file/gui-error)
+                                            (let ([ed (get-editor)])
+                                              (if (send ed get-filename)
+                                                  (send ed save-file/gui-error)
+                                                  (save-as)))
                                             #t))
           
           (define file-menu:create-save? (lambda () #t))