--- a/ProgressIndicator.st	Tue Jul 27 13:22:37 1999 +0200
+++ b/ProgressIndicator.st	Tue Jul 27 13:24:45 1999 +0200
@@ -401,9 +401,15 @@
             closeWhenDone:true.
 
     p showProgressOf:[:progressValue :currentAction |
-        aBlock value:[:scaledValue | progressValue value:( scaledValue - startValue
-                                                           / (endValue-startValue)
-                                                           * 100)].    
+        |scaler|
+
+        scaler := [:scaledValue | 
+                        progressValue value:( scaledValue - startValue
+                                              / (endValue-startValue)
+                                              * 100).
+                        currentAction value:aLabel.
+                  ].
+        aBlock value:scaler.    
     ]
 
     "
@@ -949,5 +955,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.27 1999-07-27 11:22:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.28 1999-07-27 11:24:45 cg Exp $'
 ! !