--- a/ProgressIndicator.st	Tue May 07 17:29:58 2013 +0200
+++ b/ProgressIndicator.st	Tue May 07 18:33:34 2013 +0200
@@ -1183,17 +1183,17 @@
 
 startBusyIndicationProcess
     busyIndicationProcess isNil ifTrue:[
-	busyPosition := 0.
-	busyDelta := 5.
-	busyIndicationProcess := [
-				    [self realized] whileTrue:[
-					Delay waitForSeconds:0.2.
-					self shown ifTrue:[
-					    self updateBusyIndicatorPosition.
-					]
-				    ].
-				    busyIndicationProcess := nil.
-				 ] fork.
+        busyPosition := 0.
+        busyDelta := 3.
+        busyIndicationProcess := [
+                                    [self realized] whileTrue:[
+                                        Delay waitForSeconds:0.1.
+                                        self shown ifTrue:[
+                                            self updateBusyIndicatorPosition.
+                                        ]
+                                    ].
+                                    busyIndicationProcess := nil.
+                                 ] fork.
     ].
 
     "Created: / 21.10.1998 / 18:02:35 / cg"
@@ -1211,18 +1211,21 @@
 
 updateBusyIndicatorPosition
     busyPosition := busyPosition + busyDelta.
-    busyPosition >= 80 ifTrue:[
-        busyDelta > 0 ifTrue:[
-            busyDelta := busyDelta negated.
-        ]
-    ] ifFalse:[
-        busyPosition <= 0 ifTrue:[
-            busyDelta < 0 ifTrue:[
-                busyDelta := busyDelta negated.
-            ]
-        ]
+    busyPosition >= 95 ifTrue:[
+        busyPosition := -15.
     ].
-    self invalidate
+"/    busyPosition >= 80 ifTrue:[
+"/        busyDelta > 0 ifTrue:[
+"/            busyDelta := busyDelta negated.
+"/        ]
+"/    ] ifFalse:[
+"/        busyPosition <= 0 ifTrue:[
+"/            busyDelta < 0 ifTrue:[
+"/                busyDelta := busyDelta negated.
+"/            ]
+"/        ]
+"/    ].
+    self invalidateRepairNow:true
 
     "Created: / 21.10.1998 / 17:33:28 / cg"
     "Modified: / 21.10.1998 / 17:58:58 / cg"
@@ -1701,9 +1704,10 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.72 2012-05-15 09:53:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.73 2013-05-07 16:33:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.72 2012-05-15 09:53:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.73 2013-05-07 16:33:34 cg Exp $'
 ! !
+