--- a/MenuView.st	Wed Feb 01 11:58:25 2017 +0000
+++ b/MenuView.st	Thu Feb 09 00:04:36 2017 +0000
@@ -1549,7 +1549,7 @@
     "/ this is somewhat complicated: we have the symbolic key at hand,
     "/ but want to show the untranslated (inverse keyBoardMapped) key & modifier
     "/
-    s := device shortKeyStringFor:aSymbolicKey.
+    s := self shortKeyStringFor:aSymbolicKey.
     s isNil ifTrue:[^ self].
 
     l := self visibleLineToAbsoluteLine:visLineNr.
@@ -1580,6 +1580,7 @@
 
     "Created: / 28-02-1996 / 18:48:05 / cg"
     "Modified: / 08-08-2006 / 15:47:11 / cg"
+    "Modified: / 08-02-2017 / 23:21:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 drawCheckLine:line inVisibleLine:visLineNr with:fg and:bg
@@ -2556,7 +2557,7 @@
                                                 thisKey isNil ifTrue:[
                                                     maxSoFar
                                                 ] ifFalse:[
-                                                    short := device shortKeyStringFor:thisKey.
+                                                    short := self shortKeyStringFor:thisKey.
                                                     short isNil ifTrue:[
                                                         maxSoFar
                                                     ] ifFalse:[
@@ -2570,6 +2571,7 @@
 
     "Created: / 28-02-1996 / 16:30:09 / cg"
     "Modified: / 08-08-2006 / 15:47:07 / cg"
+    "Modified: / 08-02-2017 / 23:20:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 shortKeyPrefixFor:aModifier
@@ -3020,5 +3022,10 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !