--- a/HierarchicalFileList.st	Thu May 21 17:58:03 2015 +0000
+++ b/HierarchicalFileList.st	Fri May 22 11:08:58 2015 +0200
@@ -1232,7 +1232,9 @@
         self setFetchingChildrenInfo.
         model startIndicatorValidationFor:self.
     ] ifFalse:[
-        self error:'should not happen' mayProceed:true.
+        "/ model canbe nil if an expose event is proccessed after my underlaying model is gone
+        "/ self error:'should not happen' mayProceed:true.
+        'HierarchicalFileList::Directory -> hasChildren : model is unspecified' printCR.
         self forgetAboutChildren
     ].
     children size ~~ 0 ifTrue:[ ^ true].
@@ -1424,11 +1426,11 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.83 2015-05-01 14:38:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.84 2015-05-22 09:08:58 ca Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.83 2015-05-01 14:38:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.84 2015-05-22 09:08:58 ca Exp $'
 ! !