--- a/HierarchicalFileList.st	Wed Nov 08 18:32:55 2006 +0100
+++ b/HierarchicalFileList.st	Wed Nov 08 18:34:08 2006 +0100
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libwidg2' }"
 
 HierarchicalList subclass:#HierarchicalFileList
@@ -940,7 +938,7 @@
         ^ self.
     ].
 
-    hasChildren := DirectoryContents directoryNamed:fileName detect:(self model matchBlock).
+    hasChildren := self model notNil and:[ DirectoryContents directoryNamed:fileName detect:(self model matchBlock) ].
     self knownToHaveChildren:hasChildren.
     "/ self assert:children isNil.
 
@@ -948,6 +946,8 @@
         "setup modification time to suppress monitorCycle"
         modificationTime := info modificationTime.
     ].
+
+    "Modified: / 08-11-2006 / 17:31:16 / cg"
 !
 
 fetchIndicator
@@ -1244,7 +1244,7 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.61 2006-03-21 19:59:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.62 2006-11-08 17:34:08 cg Exp $'
 ! !
 
 HierarchicalFileList::Directory initialize!