--- a/EditTextView.st	Fri Feb 27 12:41:14 2004 +0100
+++ b/EditTextView.st	Sat Feb 28 13:57:56 2004 +0100
@@ -3650,8 +3650,8 @@
     selEndCol := self selectionEndCol.
     sel := self selection.
 
-    (characterEncoding ? #'unicode') ~= 'unicode' ifTrue:[
-        key := CharacterEncoder encode:key from:'unicode' into:characterEncoding.
+    (characterEncoding ? #'iso10646-1') ~~ #'iso10646-1' ifTrue:[
+        key := CharacterEncoder encode:key from:#'iso10646-1' into:characterEncoding.
     ].
 
     "replace selection by what is typed in -
@@ -5649,5 +5649,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.337 2004-02-27 11:41:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.338 2004-02-28 12:57:53 cg Exp $'
 ! !