--- a/ProgressIndicator.st	Thu Mar 15 12:28:33 2018 +0100
+++ b/ProgressIndicator.st	Fri Mar 23 12:19:42 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -1212,10 +1214,10 @@
 startBusyIndicationProcess
     busyIndicationProcess isNil ifTrue:[
         busyPosition := 0.
-        busyDelta := 3.
+        busyDelta := 1.
         busyIndicationProcess := [
                                     [self realized and:[self topView realized]] whileTrue:[
-                                        Delay waitForSeconds:0.1.
+                                        Delay waitForSeconds:0.075.
                                         self shown ifTrue:[
                                             self updateBusyIndicatorPosition.
                                         ]