diff --git a/collects/framework/private/standard-menus-items.rkt b/collects/framework/private/standard-menus-items.rkt
index 10b4bf55be..bf06769351 100644
--- a/collects/framework/private/standard-menus-items.rkt
+++ b/collects/framework/private/standard-menus-items.rkt
@@ -245,8 +245,8 @@
         (make-an-item 'file-menu 'save-as
                       '(string-constant save-as-info)
                       '(λ (item control) (void))
-                      #f
-                      '(get-default-shortcut-prefix)
+                      #\s
+                      '(cons 'shift (get-default-shortcut-prefix))
                       '(string-constant save-as-menu-item)
                       on-demand-do-nothing
                       #f)
diff --git a/collects/framework/private/standard-menus.rkt b/collects/framework/private/standard-menus.rkt
index edbcbab91b..ddb0aabebe 100644
--- a/collects/framework/private/standard-menus.rkt
+++ b/collects/framework/private/standard-menus.rkt
@@ -671,8 +671,8 @@
             (let ((file-menu:save-as-callback
                    (λ (item evt) (file-menu:save-as-callback item evt))))
               file-menu:save-as-callback))
-           (shortcut #f)
-           (shortcut-prefix (get-default-shortcut-prefix))
+           (shortcut #\s)
+           (shortcut-prefix (cons 'shift (get-default-shortcut-prefix)))
            (help-string (file-menu:save-as-help-string))
            (demand-callback
             (λ (menu-item) (file-menu:save-as-on-demand menu-item))))))