--- a/TextView.st	Tue Feb 11 18:03:23 2020 +0100
+++ b/TextView.st	Tue Feb 11 18:03:35 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -3374,9 +3376,10 @@
     prevEndLine to:selectionEndLine do:[:lineNr |
         self redrawLine:lineNr
     ].
-    autoScrollBlock notNil ifTrue:[ Processor addTimedBlock:autoScrollBlock afterSeconds:autoScrollDeltaT ].
     self selectionChanged.
 
+    self sceduleNextAutoScroll.
+
     "Modified: / 13-06-2018 / 23:43:28 / Claus Gittinger"
 !
 
@@ -3405,7 +3408,7 @@
         self selectionChanged.
     ].    
 
-    autoScrollBlock notNil ifTrue:[ Processor addTimedBlock:autoScrollBlock afterSeconds:autoScrollDeltaT ].
+    self sceduleNextAutoScroll.
 
     "Modified: / 13-06-2018 / 22:54:24 / Claus Gittinger"
 !
@@ -3441,7 +3444,7 @@
     self repairDamage. 
     "/ self invalidate.
 
-    autoScrollBlock notNil ifTrue:[ Processor addTimedBlock:autoScrollBlock afterSeconds:autoScrollDeltaT ].
+    self sceduleNextAutoScroll.
 
     "Modified: / 05-08-2010 / 21:25:56 / cg"
     "Modified: / 29-10-2018 / 09:39:54 / Claus Gittinger"
@@ -3467,10 +3470,8 @@
     selectionStartLine to:prevStartLine do:[:lineNr |
         self redrawLine:lineNr
     ].
-    autoScrollBlock notNil ifTrue:[ 
-        Processor addTimedBlock:autoScrollBlock afterSeconds:autoScrollDeltaT 
-    ].
     self selectionChanged.
+    self sceduleNextAutoScroll.
 !
 
 stopScrollSelect
@@ -4483,7 +4484,7 @@
                 ]].
 
                 (inLineComment not & isIgnoreChar) ifTrue:[
-                    "/ íf in a line comment, single ' and " may occur.
+                    "/ íf in a line comment, single ' and " may occur.
                     "/ ignoring ~~ 0 means, that we ignore non-matching peers.
                     (ignoring ~~ 0 and:[nesting top first = cc]) ifTrue:[
                         ignoring := ignoring - 1.