--- a/DirectoryTreeBrowser.st	Thu Apr 11 18:28:20 2019 +0200
+++ b/DirectoryTreeBrowser.st	Thu Apr 11 18:29:15 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -1189,7 +1191,7 @@
                 "/ set a new root directory
                 newRoot := self commonPrefixOfSelectedFiles.
                 newRoot := self getDirWithoutFileName:newRoot.
-                newRoot := newRoot asAbsoluteFilename pathName.
+                newRoot := newRoot pathName.
                 newRoot ~= self rootHolder value ifTrue:[
                     self rootHolder value:newRoot.
                 ].
@@ -1212,6 +1214,7 @@
     self selectItems:items
 
     "Modified: / 12-07-2012 / 11:31:20 / cg"
+    "Modified: / 11-04-2019 / 18:03:58 / Stefan Vogel"
 !
 
 selectItems:aColOfItems