--- a/DirectoryTreeBrowser.st	Fri Jan 27 22:18:53 2012 +0100
+++ b/DirectoryTreeBrowser.st	Sun Jan 29 12:53:39 2012 +0000
@@ -1160,17 +1160,14 @@
     "selects a file; if the file is not included in my
      root directory, the root will be changed"
 
-    |root items directory item newRoot rootDir|
+    |items directory item newRoot|
 
     aColOfFileOrDirectory isEmpty ifTrue:[ self selectItems:#()].
 
-    root := self fileList root. 
-    root notNil ifTrue:[ rootDir := root fileName asAbsoluteFilename ].
-
     items := OrderedCollection new.
     aColOfFileOrDirectory do:[:file|
         file exists ifTrue:[
-            item := self fileList findLastForFile:file inRoot:root directory:rootDir.
+            item := self fileList findLastForFile:file.
             item isNil ifTrue:[
                 "/ set a new root directory
                 newRoot := self commonPrefixOfSelectedFiles.
@@ -1194,8 +1191,6 @@
         ].
     ].
     self selectItems:items
-
-    "Modified: / 08-09-2011 / 03:59:11 / cg"
 !
 
 selectItems:aColOfItems
@@ -1388,9 +1383,9 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.119 2011-09-08 02:03:32 cg Exp $'
+    ^ '$Id: DirectoryTreeBrowser.st 7810 2011-08-12 14:54:02Z vranyj1 $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.119 2011-09-08 02:03:32 cg Exp $'
-! !
+    ^ '§Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.116 2011/05/03 15:34:11 mb Exp §'
+! !
\ No newline at end of file