--- a/EditTextView.st	Thu Sep 29 15:12:13 2016 +0200
+++ b/EditTextView.st	Fri Sep 30 16:44:51 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -7478,16 +7480,16 @@
 
     sel := self selectionAsString.
     in := sel readStream.
-    out := CharacterWriteStream on:(String new).
+    out := CharacterWriteStream on:''.
     [in atEnd] whileFalse:[
-	record := in throughAll:separator.
-	out nextPutLine:record.
+        record := in throughAll:separator.
+        out nextPutLine:record.
     ].
     self
-	undoableDo:[
-	    self replaceSelectionBy:(out contents).
-	]
-	info:'Split Selection'
+        undoableDo:[
+            self replaceSelectionBy:(out contents).
+        ]
+        info:'Split Selection'
 !
 
 undoablePaste:someText