--- a/HierarchicalFileList.st	Wed Sep 07 21:39:41 2011 +0200
+++ b/HierarchicalFileList.st	Thu Sep 08 04:00:50 2011 +0200
@@ -401,12 +401,12 @@
         ^ nil
     ].
 
-    ^ self findLastForFile:aPathOrFile inRoot:(root fileName asAbsoluteFilename)
+    ^ self findLastForFile:aPathOrFile inRoot:root directory:(root fileName asAbsoluteFilename)
 
-    "Modified: / 07-09-2011 / 12:15:35 / cg"
+    "Modified: / 08-09-2011 / 03:58:49 / cg"
 !
 
-findLastForFile:aPathOrFile inRoot:rootDir
+findLastForFile:aPathOrFile inRoot:root directory:rootDir
     "find last item which matches the path or file
      returns the item or nil if not contained in self"
 
@@ -428,7 +428,7 @@
     ].
     rootComponents   := rootDir components.
     searchComponents := file asCanonicalizedFilename components.
-    searchItem       := rootDir.
+    searchItem       := root.
 
     searchComponents from:(rootComponents size + 1) do:[:aName| |child|
         child := searchItem detect:[:el| el baseName = aName ] ifNone:nil.
@@ -438,7 +438,7 @@
     ].
     ^ searchItem
 
-    "Created: / 07-09-2011 / 12:14:20 / cg"
+    "Created: / 08-09-2011 / 03:55:23 / cg"
 ! !
 
 !HierarchicalFileList methodsFor:'update'!
@@ -1418,11 +1418,11 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.77 2011-09-07 19:39:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.78 2011-09-08 02:00:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.77 2011-09-07 19:39:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.78 2011-09-08 02:00:50 cg Exp $'
 ! !
 
 HierarchicalFileList::Directory initialize!