--- a/DragAndDropManager.st	Thu Feb 23 03:05:09 2017 +0100
+++ b/DragAndDropManager.st	Thu Feb 23 14:10:23 2017 +0100
@@ -1678,18 +1678,18 @@
 
     autoScrollTask := 
         [
-            [   |sensor|
+            [   |sensor delay|
 
                 sensor := windowGroup sensor.
+                delay := Delay forMilliseconds:(self class autoScrollDelayTimeMs).
 
                 [ self isActive ] whileTrue:[
-                    Delay waitForMilliseconds:(self class autoScrollDelayTimeMs).
-
+                    delay wait.
                     self isActive ifTrue:[
                         sensor pushUserEvent:#processAutoScroll for:self.
                     ].
                 ].
-            ]ensure:[
+            ] ensure:[
                 autoScrollTask := nil.
             ]
          ] newProcess.
@@ -1701,6 +1701,8 @@
     "/ start with a first draw at the current mouse position
     screenPoint := viewsDevice pointerPosition.
     self buttonMotion:1 x:(screenPoint x) y:(screenPoint y) view:(viewsDevice rootView).
+
+    "Modified: / 23-02-2017 / 13:34:48 / stefan"
 !
 
 forceGiveUp