--- a/ProgressIndicator.st	Fri Jul 13 11:11:03 2018 +0200
+++ b/ProgressIndicator.st	Thu Jul 19 19:00:19 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -1636,10 +1634,15 @@
     p := 
         [
             [
-                WindowGroup windowGroupQuerySignal handle:[:ex |
-                    ex proceedWith:self topView windowGroup
-                ] do:[
-                    aBlock valueWithOptionalArgument:labelValue
+                ActivityNotification handle:[:ex |
+                    labelValue value:(ex messageText).
+                    ex proceed.
+                ] do:[    
+                    WindowGroup windowGroupQuerySignal handle:[:ex |
+                        ex proceedWith:self topView windowGroup
+                    ] do:[
+                        aBlock valueWithOptionalArgument:labelValue
+                    ]
                 ]
             ] ensure:[
                 p := nil.
@@ -1690,6 +1693,7 @@
     "Modified: / 07-11-2011 / 21:53:46 / cg"
     "Modified (format): / 08-01-2012 / 12:00:39 / cg"
     "Modified: / 11-07-2018 / 11:31:46 / Stefan Vogel"
+    "Modified: / 19-07-2018 / 18:26:34 / Claus Gittinger"
 !
 
 showProgressOf:aBlock