--- a/TextView.st	Tue Mar 24 16:25:09 2015 +0100
+++ b/TextView.st	Wed Mar 25 20:19:48 2015 +0100
@@ -2625,7 +2625,7 @@
             "/ must do it lineWise ...
             list do:[:line |
                 line notNil ifTrue:[
-                    aStream nextPutAll:(encoder encodeString:line withTabs)
+                    encoder encodeString:line withTabs on:aStream
                 ].
                 aStream cr
             ].
@@ -2635,17 +2635,16 @@
                             asStringWithCRsFrom:startNr
                             to:((startNr + 1000) min:nLines)
                             compressTabs:compressTabs.
-                aStream nextPutAll:(encoder encodeString:string string).
+                encoder encodeString:string string on:aStream.
                 startNr := startNr + 1000 + 1.
             ].
         ].
     ] ifFalse:[
         list do:[:aLine |
             aLine notNil ifTrue:[
-                aStream nextPutLine:(encoder encodeString:aLine).
-            ] ifFalse:[
-                aStream cr.
-            ]
+                encoder encodeString:aLine on:aStream.
+            ].
+            aStream cr.
         ]
     ]
 
@@ -4945,11 +4944,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.392 2015-02-24 15:47:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.393 2015-03-25 19:19:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.392 2015-02-24 15:47:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.393 2015-03-25 19:19:48 cg Exp $'
 ! !