--- a/HierarchicalList.st	Sun Mar 02 21:38:41 2003 +0100
+++ b/HierarchicalList.st	Sun Mar 02 21:39:42 2003 +0100
@@ -327,7 +327,7 @@
     (task := monitoringTask) notNil ifTrue:[
         monitoringTask := nil.
 
-        Object errorSignal handle:[:ex|]do:[
+        Error handle:[:ex|]do:[
             task terminateWithAllSubprocessesInGroup.
             task waitUntilTerminated.
         ]
@@ -384,5 +384,5 @@
 !HierarchicalList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.17 2003-01-20 12:02:46 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.18 2003-03-02 20:39:42 stefan Exp $'
 ! !