--- a/TerminalView.st	Sun Sep 11 06:53:10 2016 +0200
+++ b/TerminalView.st	Mon Sep 12 06:57:58 2016 +0200
@@ -1117,8 +1117,7 @@
         "/ do not remember blank lines
         (lineBuffer notEmptyOrNil and:[lineBuffer isBlank not]) ifTrue:[
             "/ do not remember repetitions
-            (lineBufferHistory size > 0 and:[lineBufferHistory last = lineBuffer]) ifTrue:[
-            ] ifFalse:[
+            (lineBufferHistory size > 0 and:[lineBufferHistory last = lineBuffer]) ifFalse:[
                 lineBufferHistory addLast:lineBuffer.
             ].
             lineBufferHistoryPosition := lineBufferHistory size + 1.
@@ -1186,7 +1185,10 @@
         "/ remember the current lineBuffer (but only if it is the last)
         lineBufferHistoryPosition > lineBufferHistory size ifTrue:[
             (lineBuffer notEmptyOrNil and:[lineBuffer isBlank not]) ifTrue:[  
-                lineBufferHistory add:lineBuffer.
+                "/ do not remember repetitions
+                (lineBufferHistory size > 0 and:[lineBufferHistory last = lineBuffer]) ifFalse:[
+                    lineBufferHistory add:lineBuffer.
+                ].
             ].
         ].
         clearLine value.