--- a/SystemStatusMonitor.st	Tue Dec 14 16:00:17 2004 +0100
+++ b/SystemStatusMonitor.st	Tue Dec 14 16:01:03 2004 +0100
@@ -218,7 +218,7 @@
                     myDelay wait.
                     self updateList.
                 ]
-            ] valueOnUnwindDo:[
+            ] ifCurtailed:[
                 updateProcess := nil
             ]
         ]  forkAt:(Processor userSchedulingPriority + 1).
@@ -249,5 +249,5 @@
 !SystemStatusMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemStatusMonitor.st,v 1.15 2002-08-22 16:51:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemStatusMonitor.st,v 1.16 2004-12-14 15:01:03 cg Exp $'
 ! !