--- a/HierarchicalList.st	Tue Apr 03 08:45:31 2001 +0200
+++ b/HierarchicalList.st	Tue Apr 03 08:46:36 2001 +0200
@@ -280,7 +280,7 @@
      and:[dependents size ~~ 0]]
     ) ifTrue:[
         monitoringTask := [
-            [true] whileTrue:[
+            [dependents size ~~ 0] whileTrue:[
                 self monitoringCycle.
                 Delay waitForSeconds:(self monitoringTaskDelay)
             ]
@@ -340,5 +340,5 @@
 !HierarchicalList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.10 2000-10-15 15:08:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalList.st,v 1.11 2001-04-03 06:46:36 ca Exp $'
 ! !