--- a/TextColl.st	Mon Jul 27 16:17:03 1998 +0200
+++ b/TextColl.st	Mon Jul 27 16:18:21 1998 +0200
@@ -261,6 +261,12 @@
     "define the number of text-lines I am supposed to hold"
 
     lineLimit := aNumber
+
+    "
+     Transcript lineLimit:5000
+    "
+
+    "Modified: / 16.5.1998 / 01:33:52 / cg"
 !
 
 updateTimeDelay:seconds
@@ -649,5 +655,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.50 1998-07-27 14:17:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.51 1998-07-27 14:18:21 cg Exp $'
 ! !

--- a/TextCollector.st	Mon Jul 27 16:17:03 1998 +0200
+++ b/TextCollector.st	Mon Jul 27 16:18:21 1998 +0200
@@ -261,6 +261,12 @@
     "define the number of text-lines I am supposed to hold"
 
     lineLimit := aNumber
+
+    "
+     Transcript lineLimit:5000
+    "
+
+    "Modified: / 16.5.1998 / 01:33:52 / cg"
 !
 
 updateTimeDelay:seconds
@@ -649,5 +655,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.50 1998-07-27 14:17:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.51 1998-07-27 14:18:21 cg Exp $'
 ! !