--- a/TextCollector.st	Tue Oct 08 16:15:05 2002 +0200
+++ b/TextCollector.st	Thu Oct 10 09:39:14 2002 +0200
@@ -264,7 +264,7 @@
                 outstandingLine := ''.
             ].
             self checkLineLimit.
-            device flush.
+            "/ device flush.
         ] ensure:[
             inFlush := false.
         ]
@@ -789,6 +789,7 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.73 2002-09-12 13:53:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.74 2002-10-10 07:39:14 penk Exp $'
 ! !
+
 TextCollector initialize!