--- a/DirectoryTreeBrowser.st	Tue May 03 12:18:13 2011 +0200
+++ b/DirectoryTreeBrowser.st	Tue May 03 17:34:11 2011 +0200
@@ -1172,7 +1172,10 @@
                 "/ set a new root directory
                 newRoot := self commonPrefixOfSelectedFiles.
                 newRoot := self getDirWithoutFileName:newRoot.
-                self rootHolder value:newRoot asAbsoluteFilename.
+                newRoot := newRoot asAbsoluteFilename pathName.
+                newRoot ~= self rootHolder value ifTrue:[
+                    self rootHolder value:newRoot.
+                ].
                 item := self fileList root.
 
                 file isDirectory ifTrue:[ directory := file ]
@@ -1380,9 +1383,9 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.115 2010-08-08 12:42:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.116 2011-05-03 15:34:11 mb Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.115 2010-08-08 12:42:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.116 2011-05-03 15:34:11 mb Exp $'
 ! !