--- a/TextCollector.st	Sun Oct 11 13:29:33 2015 +0200
+++ b/TextCollector.st	Thu Oct 15 12:22:41 2015 +0200
@@ -351,6 +351,10 @@
     destroyAction := aBlock
 !
 
+entryStream
+    ^ entryStream
+!
+
 lineLimit
     "return the number of text-lines I am supposed to hold"