--- a/extensions.st	Wed Jul 09 03:06:50 2014 +0200
+++ b/extensions.st	Wed Jul 09 03:09:45 2014 +0200
@@ -1442,9 +1442,8 @@
         menuItem := MenuItem new
                         label: lbl
                         itemValue: (menuView selectors at: i)
-                        enabled: (menuView isEnabled: i);
-                        shortcutKey: (menuView shortKeys at: i);
-                        yourself.
+                        enabled: (menuView isEnabled: i).
+        menuItem shortcutKey: (menuView shortKeys at: i).
 
         (subMenu := self subMenuAt: i) notNil ifTrue:[
             menuItem submenu: subMenu asMenu
@@ -2343,7 +2342,7 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.125 2014-07-08 13:25:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.126 2014-07-09 01:09:45 cg Exp $'
 ! !
 
 !stx_libtool class methodsFor:'documentation'!