--- a/XWorkstation.st	Thu Feb 01 20:50:08 1996 +0100
+++ b/XWorkstation.st	Thu Feb 01 21:03:04 1996 +0100
@@ -2910,13 +2910,17 @@
     control := false.
     code := aCharacterOrString asciiValue.
 
-    (aCharacterOrString between:$A and:$Z) ifTrue:[
-	"/ shifted
-	shifted := true
+    (aCharacterOrString == Character cr) ifTrue:[
+	code := #Return
     ] ifFalse:[
-	(aCharacterOrString between:$a and:$z) ifTrue:[
-	    "/ unshifted alpha
-	    code := code - $a asciiValue + $A asciiValue
+	(aCharacterOrString between:$A and:$Z) ifTrue:[
+	    "/ shifted
+	    shifted := true
+	] ifFalse:[
+	    (aCharacterOrString between:$a and:$z) ifTrue:[
+		"/ unshifted alpha
+		code := code - $a asciiValue + $A asciiValue
+	    ]
 	]
     ].
 
@@ -7269,6 +7273,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.105 1996-02-01 19:48:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.106 1996-02-01 20:03:04 cg Exp $'
 ! !
 XWorkstation initialize!