--- a/TextCollector.st	Thu Sep 12 15:04:52 1996 +0200
+++ b/TextCollector.st	Tue Sep 17 00:12:54 1996 +0200
@@ -337,11 +337,15 @@
             ] ifFalse:[
                 p := windowGroup process
             ].
-            Processor addTimedBlock:flushBlock for:p afterSeconds:timeDelay.
+            (Processor isSystemProcess:p) ifTrue:[
+                self endEntry
+            ] ifFalse:[
+                Processor addTimedBlock:flushBlock for:p afterSeconds:timeDelay.
+            ]
         ]
     ]
 
-    "Modified: 18.4.1996 / 20:02:01 / cg"
+    "Modified: 17.9.1996 / 00:11:53 / cg"
 ! !
 
 !TextCollector methodsFor:'queries'!
@@ -367,21 +371,25 @@
     "output a carriage return, finishing the current line"
 
     access critical:[
-	collecting ifTrue:[
-	    outstandingLine notNil ifTrue:[
-		outstandingLines add:outstandingLine.
-	    ].
-	    outstandingLine := ''.
+        collecting ifTrue:[
+            outstandingLine notNil ifTrue:[
+                outstandingLines add:outstandingLine.
+            ].
+            outstandingLine := ''.
+        ] ifFalse:[
+            self cursorReturn.
+            self checkLineLimit.
+            self cursorToEnd.
+        ].
+    ].
 
-	    flushPending ifFalse:[
-		self installDelayedUpdate
-	    ]
-	] ifFalse:[
-	    self cursorReturn.
-	    self checkLineLimit.
-	    self cursorToEnd.
-	].
+    collecting ifTrue:[
+        flushPending ifFalse:[
+            self installDelayedUpdate
+        ]
     ]
+
+    "Modified: 17.9.1996 / 00:08:49 / cg"
 !
 
 doesNotUnderstand:aMessage
@@ -497,5 +505,5 @@
 !TextCollector  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.31 1996-07-05 15:26:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.32 1996-09-16 22:12:54 cg Exp $'
 ! !