--- a/TextColl.st	Tue Aug 26 17:38:03 1997 +0200
+++ b/TextColl.st	Tue Sep 02 19:42:34 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.9 on 31-aug-1997 at 8:55:53 pm'                  !
+
 EditTextView subclass:#TextCollector
 	instanceVariableNames:'entryStream lineLimit destroyAction outstandingLines
 		outstandingLine flushBlock flushPending inFlush collecting
@@ -499,13 +501,17 @@
         collecting ifTrue:[
             flushPending ifFalse:[
                 self installDelayedUpdate
+            ] ifTrue:[
+                outstandingLines size > 50 ifTrue:[
+                    self endEntry
+                ]
             ]
         ] ifFalse:[
             self endEntry
         ]
     ].
 
-    "Modified: 18.2.1997 / 17:31:00 / cg"
+    "Modified: 31.8.1997 / 08:53:20 / cg"
 ! !
 
 !TextCollector methodsFor:'transcript specials'!
@@ -544,5 +550,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.38 1997-07-03 12:28:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.39 1997-09-02 17:42:34 cg Exp $'
 ! !