--- a/HierarchicalFileList.st	Mon Oct 24 09:00:27 2005 +0200
+++ b/HierarchicalFileList.st	Mon Oct 24 11:25:21 2005 +0200
@@ -1000,8 +1000,13 @@
 flushChildren
     "flush the children because the node is going to be invisible."
 
-    self knownToHaveChildren:(children size ~~ 0).
-    children := nil.
+    children notNil ifTrue:[
+        self knownToHaveChildren:(children size ~~ 0).
+        children := nil.
+    ] ifFalse:[
+        "/ state is unknown
+        self forgetAboutChildren.
+    ].
 ! !
 
 !HierarchicalFileList::Directory methodsFor:'private-quick children info'!
@@ -1250,7 +1255,7 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.57 2005-07-06 08:01:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.58 2005-10-24 09:25:21 ca Exp $'
 ! !
 
 HierarchicalFileList::Directory initialize!