--- a/ProgressIndicator.st	Tue May 08 16:12:51 2012 +0200
+++ b/ProgressIndicator.st	Tue May 15 11:53:23 2012 +0200
@@ -1035,7 +1035,7 @@
 redraw
     "redraw the percentage bar and optional percentage string"
 
-    |s lx rx sx sy sw m2 m w h doBusy|
+    |s lx rx sx sy sw m2 m w h doBusy oldClip|
 
     self shown ifFalse:[^self].
 
@@ -1092,15 +1092,16 @@
 
     showPercentage ifTrue:[
         rx >= sx ifTrue:[
+            oldClip := self clippingRectangleOrNil.
             self clippingRectangle:(m@m corner:rx+1 @ h).
             self paint:Color white.
             self displayString:s x:sx y:sy.
-            self clippingRectangle:nil
+            self clippingRectangle:oldClip
         ]
     ]
 
-    "Modified: / 21-10-1998 / 18:01:58 / cg"
     "Modified: / 12-12-2006 / 18:26:02 / janfrog"
+    "Modified: / 15-05-2012 / 10:58:14 / cg"
 !
 
 sizeChanged:how
@@ -1700,9 +1701,9 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.71 2012-02-02 14:15:21 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.72 2012-05-15 09:53:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.71 2012-02-02 14:15:21 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.72 2012-05-15 09:53:23 cg Exp $'
 ! !