--- a/DirectoryTreeBrowser.st	Wed Apr 02 23:34:17 2003 +0200
+++ b/DirectoryTreeBrowser.st	Wed Apr 02 23:48:25 2003 +0200
@@ -1028,7 +1028,7 @@
         file exists ifTrue:[
             item := self fileList findLastForFile:file.
             item isNil ifTrue:[
-                newRoot := self getCommonForCurrentFiles.
+                newRoot := self commonPrefixOfSelectedFiles.
                 newRoot := self getDirWithoutFileName:newRoot.
                 self rootHolder value:newRoot.
                 item := self fileList root.
@@ -1242,5 +1242,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.57 2003-04-01 14:58:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.58 2003-04-02 21:48:25 cg Exp $'
 ! !