--- a/DeviceWorkstation.st	Tue Dec 11 16:06:34 2012 +0100
+++ b/DeviceWorkstation.st	Thu Dec 13 00:00:01 2012 +0100
@@ -6776,7 +6776,7 @@
             "/].
 
             "/ sigh: twoByteSymbols are not (yet) allowed
-            xlatedKey bitsPerCharacter == 8 ifTrue:[
+            xlatedKey isWideString ifFalse:[
                 xlatedKey := xlatedKey asSymbol
             ].
         ].
@@ -6816,7 +6816,7 @@
     xlatedKey := aView keyboardMap valueFor:xlatedKey.
     xlatedKey notNil ifTrue:[
         xlatedKey isCharacter ifFalse:[
-            xlatedKey bitsPerCharacter == 8 ifTrue:[
+            xlatedKey isWideString ifFalse:[
                 xlatedKey := xlatedKey asSymbol
             ]
         ]
@@ -8175,11 +8175,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.572 2012-11-27 17:42:56 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.573 2012-12-12 23:00:01 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.572 2012-11-27 17:42:56 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.573 2012-12-12 23:00:01 stefan Exp $'
 ! !
 
 DeviceWorkstation initialize!