diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss
index fd20aec2cb..863bee3986 100644
--- a/collects/framework/private/group.ss
+++ b/collects/framework/private/group.ss
@@ -85,6 +85,17 @@
               (for-each
                (λ (menu)
                  (for-each (λ (item) (send item delete)) (send menu get-items))
+                 (when (eq? (system-type) 'macosx)
+                   (new menu:can-restore-menu-item%
+                        [label (string-constant minimize)]
+                        [parent menu]
+                        [callback (λ (x y) (send (send (send menu get-parent) get-frame) iconize #t))]
+                        [shortcut #\m])
+                   (new menu:can-restore-menu-item%
+                        [label (string-constant zoom)]
+                        [parent menu]
+                        [callback (λ (x y) (send (send (send menu get-parent) get-frame) maximize #t))])
+                   (make-object separator-menu-item% menu)) 
                  (instantiate menu:can-restore-menu-item% ()
                    (label (string-constant bring-frame-to-front...))
                    (parent menu)
diff --git a/collects/string-constants/english-string-constants.ss b/collects/string-constants/english-string-constants.ss
index 18512a68c1..936c478359 100644
--- a/collects/string-constants/english-string-constants.ss
+++ b/collects/string-constants/english-string-constants.ss
@@ -670,6 +670,8 @@ please adhere to these guidelines:
  (wrap-text-item "Wrap Text")
 
  (windows-menu-label "&Windows")
+ (minimize "Minimize") ;; minimize and zoom are only used under mac os x
+ (zoom "Zoom")
  (bring-frame-to-front "Bring Frame to Front")       ;;; title of dialog
  (bring-frame-to-front... "Bring Frame to Front...") ;;; corresponding title of menu item
  (most-recent-window "Most Recent Window")