diff --git a/collects/framework/private/gen-standard-menus.ss b/collects/framework/private/gen-standard-menus.ss
index df4d2dee..e0bf1865 100644
--- a/collects/framework/private/gen-standard-menus.ss
+++ b/collects/framework/private/gen-standard-menus.ss
@@ -69,7 +69,7 @@
                     (instantiate (get-menu-item%) ()
                       (label ,(join menu-before-string menu-after-string
                                     `(,(an-item->string-name item))))
-                      (menu ,(menu-item-menu-name item))
+                      (parent ,(menu-item-menu-name item))
                       (callback (let ([,callback-name (lambda (item evt) (,callback-name item evt))])
                                   ,callback-name))
                       (shortcut ,key)