--- a/TextCollector.st	Fri Apr 19 17:42:15 1996 +0200
+++ b/TextCollector.st	Fri Apr 19 17:52:39 1996 +0200
@@ -307,26 +307,28 @@
     "arrange for collecting input for some time,
      and output all buffered strings at once after a while.
      This makes output to the transcript much faster on systems
-     with poor scrolling performance (i.e. dump vga cards ...)."
+     with poor scrolling performance (i.e. dumb vga cards ...)."
 
     |p|
 
     flushPending ifFalse:[
-	flushPending := true.
-	inFlush ifFalse:[
-	    "
-	     we could run under a process, which dies in the meantime;
-	     therefore, we have to arrange for the transcript process to
-	     be interrupted and do the update.
-	    "
-	    windowGroup isNil ifTrue:[
-		p := Processor activeProcess
-	    ] ifFalse:[
-		p := windowGroup process
-	    ].
-	    Processor addTimedBlock:flushBlock for:p afterSeconds:timeDelay.
-	]
+        flushPending := true.
+        inFlush ifFalse:[
+            "
+             we could run under a process, which dies in the meantime;
+             therefore, we have to arrange for the transcript process to
+             be interrupted and do the update.
+            "
+            windowGroup isNil ifTrue:[
+                p := Processor activeProcess
+            ] ifFalse:[
+                p := windowGroup process
+            ].
+            Processor addTimedBlock:flushBlock for:p afterSeconds:timeDelay.
+        ]
     ]
+
+    "Modified: 18.4.1996 / 20:02:01 / cg"
 ! !
 
 !TextCollector methodsFor:'stream messages'!
@@ -460,5 +462,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.26 1996-02-14 11:21:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.27 1996-04-19 15:52:39 cg Exp $'
 ! !