--- a/ProgressIndicator.st	Wed Nov 17 13:44:23 2010 +0100
+++ b/ProgressIndicator.st	Wed Nov 17 13:45:27 2010 +0100
@@ -1131,6 +1131,13 @@
     ].
 !
 
+release
+    super release.
+    showBusy notNil ifTrue:[showBusy removeDependent:self].
+
+    "Created: / 17-11-2010 / 13:44:45 / cg"
+!
+
 unmapped
     super unmapped.
     (showBusy value) ifTrue:[
@@ -1379,9 +1386,9 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.62 2010-11-17 12:44:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.63 2010-11-17 12:45:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.62 2010-11-17 12:44:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.63 2010-11-17 12:45:27 cg Exp $'
 ! !