--- a/HierarchicalFileList.st	Fri Jul 09 09:53:30 2010 +0200
+++ b/HierarchicalFileList.st	Sun Jul 11 12:23:17 2010 +0200
@@ -411,7 +411,7 @@
 
 
 "/    (file pathName startsWith:(rootDir pathName)) ifFalse:[
-    (file asString startsWith:(rootDir pathName)) ifFalse:[
+    (file asString startsWith:(rootDir pathName,Filename separator)) ifFalse:[
         "not included"
         ^ nil
     ].
@@ -426,6 +426,8 @@
         searchItem := child.
     ].
     ^ searchItem
+
+    "Modified: / 11-07-2010 / 11:46:59 / cg"
 ! !
 
 !HierarchicalFileList methodsFor:'update'!
@@ -1403,11 +1405,11 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.73 2009-10-28 15:40:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.74 2010-07-11 10:23:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.73 2009-10-28 15:40:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.74 2010-07-11 10:23:17 cg Exp $'
 ! !
 
 HierarchicalFileList::Directory initialize!