--- a/ProgressIndicator.st	Tue Mar 21 11:44:21 2000 +0100
+++ b/ProgressIndicator.st	Tue Mar 21 11:49:55 2000 +0100
@@ -752,7 +752,8 @@
 
     showPercentage ifTrue:[
         s := percentage printString , ' %'.
-        sw := font widthOf:s.
+        font := font onDevice:device.
+        sw := font widthOf:s .
         sx := (width - sw) // 2.
         sy := height // 2 + font descent + 2.
 
@@ -982,5 +983,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.29 2000-02-05 14:36:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.30 2000-03-21 10:49:55 cg Exp $'
 ! !