--- a/ProgressIndicator.st	Tue May 13 19:45:13 2003 +0200
+++ b/ProgressIndicator.st	Wed May 14 13:09:18 2003 +0200
@@ -986,7 +986,7 @@
             ] do:[
                 aBlock value:progressValue value:labelValue
             ]
-        ] valueNowOrOnUnwindDo:[
+        ] ensure:[
             p := nil.
             closeTopWhenDone ifTrue:[
                 connectedTop hide
@@ -1036,5 +1036,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.44 2003-05-07 14:59:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.45 2003-05-14 11:09:18 stefan Exp $'
 ! !