--- a/DeviceWorkstation.st	Fri Apr 25 16:17:46 2008 +0200
+++ b/DeviceWorkstation.st	Fri Apr 25 16:19:06 2008 +0200
@@ -6367,11 +6367,13 @@
     or:[untranslatedKey == #'Super_R']]) ifTrue:[
         ^ #Super
     ].
-"/    (untranslatedKey == #'Menu'
-"/    or:[untranslatedKey == #'Menu_L'
-"/    or:[untranslatedKey == #'Menu_R']]) ifTrue:[
-"/        ^ #Menu
-"/    ].
+
+    "/ I know - this is stupid; however the tradition was Cmd for this...
+    (untranslatedKey == #'Menu'
+    or:[untranslatedKey == #'Menu_L'
+    or:[untranslatedKey == #'Menu_R']]) ifTrue:[
+        ^ #Cmd
+    ].
     ^ nil
 
     "Created: 28.2.1996 / 16:40:46 / cg"
@@ -6387,8 +6389,10 @@
     ].
 
     modifier := self modifierKeyTranslationFor:untranslatedKey.
-"/ 'untranslatedKey: ' print. untranslatedKey storeString printCR.
-"/ 'modifier: ' print. modifier storeString printCR.
+"/ Transcript show: 'untranslatedKey: ' ; showCR: untranslatedKey storeString.
+"/ Transcript show:  'modifier: ' ; showCR:  modifier storeString.
+"/  'untranslatedKey: ' print. untranslatedKey storeString printCR.
+"/  'modifier: ' print. modifier storeString printCR.
 
     "/
     "/ only prepend, if this is not a modifier (otherwise, we get CmdCmd or CtrlCtrl)
@@ -7804,7 +7808,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.514 2008-04-09 19:40:47 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.515 2008-04-25 14:19:06 cg Exp $'
 ! !
 
 DeviceWorkstation initialize!