--- a/DeviceWorkstation.st	Wed Oct 29 18:43:36 2008 +0100
+++ b/DeviceWorkstation.st	Wed Oct 29 18:46:21 2008 +0100
@@ -6470,9 +6470,11 @@
 
     xlatedKey := aView keyboardMap valueFor:xlatedKey.
     xlatedKey notNil ifTrue:[
-	xlatedKey isCharacter ifFalse:[
-	    xlatedKey := xlatedKey asSymbol
-	]
+        xlatedKey isCharacter ifFalse:[
+            xlatedKey bitsPerCharacter == 8 ifTrue:[
+                xlatedKey := xlatedKey asSymbol
+            ]
+        ]
     ].
     ^ xlatedKey
 
@@ -7825,7 +7827,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.519 2008-10-28 16:20:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.520 2008-10-29 17:46:21 cg Exp $'
 ! !
 
 DeviceWorkstation initialize!