diff --git a/collects/framework/gen-standard-menus.ss b/collects/framework/gen-standard-menus.ss
index 783ef21f..d5a8ea2a 100755
--- a/collects/framework/gen-standard-menus.ss
+++ b/collects/framework/gen-standard-menus.ss
@@ -97,7 +97,8 @@ string=? ; exec mred -qr $0
 	       ,(join menu-before-string menu-after-string
 		      `(,(build-id item "-string")))
 	       ,(menu-name->id name-string)
-	       ,name
+               (let ([,name (lambda (item evt) (,name item evt))])
+                 ,name)
 	       (if (preferences:get 'framework:menu-bindings) ,key #f)
 	       (,(build-id item "-help-string"))))])))