--- a/HierarchicalFileList.st	Tue Oct 08 12:24:43 2002 +0200
+++ b/HierarchicalFileList.st	Tue Oct 08 15:14:39 2002 +0200
@@ -481,7 +481,6 @@
         model triggerUpdateCycle.
         ^ nil.
     ].
-self halt.
     self readChildren.
     ^ children
 !
@@ -556,10 +555,7 @@
 hasChildren
     "returns true if children exists
     "
-    self model.
-"/self halt.
- ^ super hasChildren
-"/    ^ children isNil or:[children notEmpty]
+    ^ super hasChildren
 !
 
 isDirectory
@@ -685,5 +681,5 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.22 2002-10-04 09:46:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.23 2002-10-08 13:14:39 penk Exp $'
 ! !