--- a/DirectoryTreeBrowser.st	Sun Jan 29 12:56:58 2012 +0000
+++ b/DirectoryTreeBrowser.st	Sun Jan 29 15:33:37 2012 +0000
@@ -1160,14 +1160,17 @@
     "selects a file; if the file is not included in my
      root directory, the root will be changed"
 
-    |items directory item newRoot|
+    |root items directory item newRoot rootDir|
 
     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.
+            item := self fileList findLastForFile:file inRoot:root directory:rootDir.
             item isNil ifTrue:[
                 "/ set a new root directory
                 newRoot := self commonPrefixOfSelectedFiles.
@@ -1191,6 +1194,8 @@
         ].
     ].
     self selectItems:items
+
+    "Modified: / 08-09-2011 / 03:59:11 / cg"
 !
 
 selectItems:aColOfItems
@@ -1383,9 +1388,9 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Id: DirectoryTreeBrowser.st 7810 2011-08-12 14:54:02Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.119 2011/09/08 02:03:32 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.116 2011/05/03 15:34:11 mb Exp §'
-! !
\ No newline at end of file
+    ^ '§Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.119 2011/09/08 02:03:32 cg Exp §'
+! !