--- a/EditTextView.st	Fri Jan 19 12:26:14 2018 +0100
+++ b/EditTextView.st	Fri Jan 19 12:27:07 2018 +0100
@@ -5900,12 +5900,8 @@
     selEndLineBefore := selectionEndLine.
     selEndColBefore := self selectionEndCol.
 
-    (gc characterEncoding ? #'iso10646-1') ~~ #'iso10646-1' ifTrue:[
-        key isCharacter ifTrue:[
-            key := CharacterEncoder encode:key from:#'iso10646-1' into:gc characterEncoding.
-        ] ifFalse:[
-            key := CharacterEncoder encodeString:key from:#'iso10646-1' into:gc characterEncoding.
-        ].
+    gc characterEncoding ~~ #'iso10646-1' ifTrue:[
+        key := CharacterEncoder encodeString:key asString from:#'iso10646-1' into:gc characterEncoding.
     ].
 
     "replace selection by what is typed in -
@@ -5993,6 +5989,7 @@
     completionSupport notNil ifTrue:[ completionSupport postKeyPress:keyArg ].
 
     "Modified: / 11-11-2017 / 12:54:01 / cg"
+    "Modified: / 19-01-2018 / 12:23:41 / stefan"
 !
 
 keyPress:key x:x y:y