--- a/ProgressIndicator.st	Tue Sep 03 10:11:00 2019 +0200
+++ b/ProgressIndicator.st	Thu Sep 05 22:00:46 2019 +0200
@@ -1160,9 +1160,7 @@
 !ProgressIndicator methodsFor:'initialization & release'!
 
 destroy
-    busyIndicationProcess notNil ifTrue:[
-	self stopBusyIndicationProcess
-    ].
+    self stopBusyIndicationProcess.
     super destroy.
 
     "Created: / 21.10.1998 / 17:29:58 / cg"
@@ -1200,9 +1198,9 @@
 
 mapped
     super mapped.
-    (showBusy value) ifTrue:[
-	self startBusyIndicationProcess.
-    ].
+    "/ (showBusy value) ifTrue:[
+    "/    self startBusyIndicationProcess.
+    "/ ].
 !
 
 release
@@ -1251,9 +1249,11 @@
 !
 
 stopBusyIndicationProcess
-    busyIndicationProcess notNil ifTrue:[
-	busyIndicationProcess terminate.
-	busyIndicationProcess := nil
+    |p|
+
+    (p := busyIndicationProcess) notNil ifTrue:[
+        busyIndicationProcess := nil.
+        p terminate.
     ].
 
     "Created: / 21.10.1998 / 17:30:19 / cg"
@@ -1691,6 +1691,13 @@
                 p resume.
                 self topView show.
             ].
+
+    self stopBusyIndicationProcess.
+    closeTopWhenDone ifTrue:[
+        connectedTop notNil ifTrue:[
+            connectedTop destroy
+        ].
+    ].
     p notNil ifTrue:[p terminate].
 
     "