--- a/TextCollector.st	Wed Dec 17 12:58:38 2003 +0100
+++ b/TextCollector.st	Thu Dec 18 16:13:46 2003 +0100
@@ -222,10 +222,12 @@
     ].
 
     inFlush ifTrue:[^ self].
-    flushBlock notNil ifTrue:[
-        Processor removeTimedBlock:flushBlock.
+    collecting ifTrue:[
+        flushBlock notNil ifTrue:[
+            Processor removeTimedBlock:flushBlock.
+        ].
+        flushPending ifFalse:[^ self].
     ].
-    flushPending ifFalse:[^ self].
 
     access critical:[
         inFlush := true.
@@ -539,7 +541,7 @@
         flushPending ifFalse:[
             self installDelayedUpdate
         ]
-    ]
+    ].
 
     "Modified: 11.1.1997 / 14:39:00 / cg"
 !
@@ -682,14 +684,14 @@
         ] ifFalse:[
             outstandingLine := aString
         ].
+        outstandingLines isNil ifTrue:[
+            outstandingLines := OrderedCollection with:outstandingLine
+        ] ifFalse:[
+            outstandingLines add:outstandingLine.
+        ].
+        outstandingLine := ''.
+
         collecting ifTrue:[
-            outstandingLines isNil ifTrue:[
-                outstandingLines := OrderedCollection with:outstandingLine
-            ] ifFalse:[
-                outstandingLines add:outstandingLine.
-            ].
-            outstandingLine := ''.
-
             flushPending ifFalse:[
                 self installDelayedUpdate
             ] ifTrue:[
@@ -788,7 +790,7 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.80 2003-09-18 14:15:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.81 2003-12-18 15:13:46 penk Exp $'
 ! !
 
 TextCollector initialize!