--- a/TextView.st	Tue Feb 17 13:10:17 2004 +0100
+++ b/TextView.st	Tue Feb 17 13:10:42 2004 +0100
@@ -2060,7 +2060,6 @@
     |startNr nLines string encoder|
 
     encoder := CharacterEncoder encoderToEncodeFrom:characterEncoding into:encodingSymOrNil.
-
     aStream isFileStream ifTrue:[
         "on some systems, writing linewise is very slow (via NFS)
          therefore we convert to a string and write it in big chunks.
@@ -2073,7 +2072,7 @@
             string := list asStringWithCRsFrom:startNr 
                                             to:((startNr + 1000) min:nLines)
                                   compressTabs:compressTabs.
-            aStream nextPutAll:(encoder encodeString:string).
+            aStream nextPutAll:(encoder encodeString:string string).
             startNr := startNr + 1000 + 1.
         ].
     ] ifFalse:[
@@ -3869,7 +3868,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.232 2004-02-16 16:56:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.233 2004-02-17 12:10:42 cg Exp $'
 ! !
 
 TextView initialize!