--- a/CharacterArray.st	Thu Oct 11 16:29:49 2018 +0200
+++ b/CharacterArray.st	Thu Oct 11 18:03:23 2018 +0200
@@ -1063,7 +1063,6 @@
     "
 ! !
 
-
 !CharacterArray methodsFor:'Compatibility-ANSI'!
 
 addLineDelimiters
@@ -7348,7 +7347,10 @@
     ].
 
     str := self species new:newSz.
-
+    (str isText and:[self bitsPerCharacter > 8]) ifTrue:[
+        str := Text string:(Unicode16String new:newSz)
+    ].
+    
     hasEmphasis := self hasChangeOfEmphasis.
 
     col := 1. dstIdx := 1.