--- a/TextCollector.st	Mon Dec 05 14:42:55 2016 +0100
+++ b/TextCollector.st	Mon Dec 05 18:08:05 2016 +0100
@@ -358,7 +358,8 @@
 !
 
 lineLimit
-    "return the number of text-lines I am supposed to hold"
+    "return the number of text-lines I am supposed to hold when collecting.
+     Nil means: unlimited"
 
     ^ lineLimit
 
@@ -478,21 +479,23 @@
     |m sub sensor|
 
     m := super editMenu.
-    ((sensor := self sensor) notNil and:[sensor ctrlDown and:[sensor shiftDown not]]) ifTrue:[
-        sub := m.
-    ] ifFalse:[
-        sub := m subMenuAt:#others.
-    ].
+    self showLineLimitInMenu ifTrue:[
+        ((sensor := self sensor) notNil and:[sensor ctrlDown and:[sensor shiftDown not]]) ifTrue:[
+            sub := m.
+        ] ifFalse:[
+            sub := m subMenuAt:#others.
+        ].
 
-    sub notNil ifTrue:[
-        sub
-            addItemList:#(
-                ('-'                                                                    )
-                ('Set Line Limit'               doSetLineLimit                         ))
-            resources:resources
-            after:#doPrint.
+        sub notNil ifTrue:[
+            sub
+                addItemList:#(
+                    ('-'                                                                    )
+                    ('Set Line Limit'               doSetLineLimit                         ))
+                resources:resources
+                after:#doPrint.
+        ].
     ].
-
+    
     ^ m.
 ! !
 
@@ -649,6 +652,10 @@
     "for compatibiliy with normal streams; return the column"
 
     ^ cursorCol
+!
+
+showLineLimitInMenu
+    ^ true.
 ! !
 
 !TextCollector methodsFor:'scrolling'!