diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 27126a18..97c523d0 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -1009,7 +1009,7 @@
                                   (let-values ([(base name dir?) (split-path name)])
                                     (values base name))
                                   (values #f #f))])
-                  (let ([file (send editor put-file name base)])
+                  (let ([file (send editor put-file base name)])
                     (if file
                         (send editor save-file/gui-error file format)
                         #f))))))