--- a/TextView.st	Thu Apr 02 09:06:09 2015 +0100
+++ b/TextView.st	Thu Apr 02 09:09:37 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,18 +2635,17 @@
                             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.
-	    ]
-	]
+        list do:[:aLine |
+            aLine notNil ifTrue:[
+                encoder encodeString:aLine on:aStream.
+            ].
+            aStream cr.
+        ]
     ]
 
     "Modified: 8.6.1996 / 11:50:46 / cg"
@@ -4952,11 +4951,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 $'
 !
 
 version_HG