--- a/MenuItem.st	Sat Aug 10 13:10:37 2013 +0200
+++ b/MenuItem.st	Sat Aug 10 13:22:11 2013 +0200
@@ -957,7 +957,7 @@
 filteredLabel
     "return the label without any &-chars"
 
-    |rawLabel l in out c pos emp e|
+    |rawLabel l in out c emp e|
 
     rawLabel := self rawLabel.
     rawLabel isString ifFalse:[^ rawLabel].
@@ -972,7 +972,7 @@
     in := rawLabel readStream.
     [in atEnd] whileFalse:[
         emp notNil ifTrue:[
-            e := rawLabel emphasisAt:(in position1Based).
+            e := rawLabel emphasisAt:(in position + 1).
         ].
         c := in next.
         c bitsPerCharacter > out collection bitsPerCharacter ifTrue:[
@@ -1099,10 +1099,10 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.101 2013-05-28 18:41:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.102 2013-08-10 11:22:11 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.101 2013-05-28 18:41:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.102 2013-08-10 11:22:11 stefan Exp $'
 ! !