--- a/SelectionInListView.st	Tue Feb 11 18:03:35 2020 +0100
+++ b/SelectionInListView.st	Tue Feb 11 18:03:48 2020 +0100
@@ -3250,7 +3250,7 @@
     "auto scroll action; scroll and reinstall timed-block"
 
     self scrollDownLines:(self device shiftDown ifTrue:[10] ifFalse:[1]).
-    Processor addTimedBlock:autoScrollBlock afterSeconds:autoScrollDeltaT.
+    self sceduleNextAutoScroll.
 
     "Modified: / 3.2.2000 / 22:41:59 / cg"
 !
@@ -3259,14 +3259,9 @@
     "auto scroll action; 
      scroll and reinstall timed-block"
 
-    |b t|
-
     self scrollUpLines:(self device shiftDown ifTrue:[10] ifFalse:[1]).
-    (b := autoScrollBlock) notNil ifTrue:[
-        (t := autoScrollDeltaT) notNil ifTrue:[
-            Processor addTimedBlock:b afterSeconds:t.
-        ].
-    ].
+    self sceduleNextAutoScroll.
+
 !
 
 selectOrToggleAtX:x y:y