--- a/TextView.st	Wed Jun 13 23:01:17 2018 +0200
+++ b/TextView.st	Wed Jun 13 23:45:57 2018 +0200
@@ -3148,7 +3148,7 @@
     "just to make certain, that we actually have a selection..."
     selectionEndLine isNil ifTrue:[^ self].
 
-    self scrollDown.
+    self scrollDownLines:1.
 
     "make new selection immediately visible"
     prevEndLine := selectionEndLine.
@@ -3159,6 +3159,8 @@
     ].
     autoScrollBlock notNil ifTrue:[ Processor addTimedBlock:autoScrollBlock afterSeconds:autoScrollDeltaT ].
     self selectionChanged.
+
+    "Modified: / 13-06-2018 / 23:43:28 / Claus Gittinger"
 !
 
 scrollSelectLeft