--- a/SystemStatusMonitor.st	Thu Aug 22 18:49:07 2002 +0200
+++ b/SystemStatusMonitor.st	Thu Aug 22 18:51:06 2002 +0200
@@ -83,14 +83,20 @@
 
 !SystemStatusMonitor methodsFor:'destroying'!
 
-destroy
+release
     updateBlock notNil ifTrue:[
-	Processor removeTimedBlock:updateBlock.
-	Processor removeTimedBlock:listUpdateBlock.
-    ] ifFalse:[
-	updateProcess notNil ifTrue:[updateProcess terminate]
+        Processor removeTimedBlock:updateBlock.
+        updateBlock := nil.
     ].
-    super destroy
+    listUpdateBlock notNil ifTrue:[
+        Processor removeTimedBlock:listUpdateBlock.
+        listUpdateBlock := nil.
+    ].
+    updateProcess notNil ifTrue:[
+        updateProcess terminate.
+        updateProcess := nil.
+    ].
+    super release
 
     "Created: 23.1.1997 / 02:26:50 / cg"
 ! !
@@ -243,5 +249,5 @@
 !SystemStatusMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemStatusMonitor.st,v 1.14 2001-06-12 09:57:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemStatusMonitor.st,v 1.15 2002-08-22 16:51:06 cg Exp $'
 ! !