--- a/TextCollector.st	Mon Oct 12 07:06:51 2015 +0200
+++ b/TextCollector.st	Fri Oct 16 07:02:30 2015 +0200
@@ -351,6 +351,10 @@
     destroyAction := aBlock
 !
 
+entryStream
+    ^ entryStream
+!
+
 lineLimit
     "return the number of text-lines I am supposed to hold"