--- a/HierarchicalFileList.st	Wed Sep 07 16:34:11 2011 +0200
+++ b/HierarchicalFileList.st	Wed Sep 07 21:39:41 2011 +0200
@@ -412,7 +412,7 @@
 
     |file searchItem rootComponents searchComponents|
 
-    (aPathOrFile isNil or:[root isNil]) ifTrue:[
+    (aPathOrFile isNil or:[rootDir isNil]) ifTrue:[
         ^ nil
     ].
 
@@ -428,7 +428,7 @@
     ].
     rootComponents   := rootDir components.
     searchComponents := file asCanonicalizedFilename components.
-    searchItem       := root.
+    searchItem       := rootDir.
 
     searchComponents from:(rootComponents size + 1) do:[:aName| |child|
         child := searchItem detect:[:el| el baseName = aName ] ifNone:nil.
@@ -438,7 +438,6 @@
     ].
     ^ searchItem
 
-    "Modified: / 11-07-2010 / 11:46:59 / cg"
     "Created: / 07-09-2011 / 12:14:20 / cg"
 ! !
 
@@ -1419,11 +1418,11 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.76 2011-09-07 12:40:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.77 2011-09-07 19:39:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.76 2011-09-07 12:40:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.77 2011-09-07 19:39:41 cg Exp $'
 ! !
 
 HierarchicalFileList::Directory initialize!