--- a/DirectoryTreeBrowser.st	Tue Jul 17 13:39:07 2018 +0200
+++ b/DirectoryTreeBrowser.st	Tue Jul 17 13:40:24 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -433,6 +431,12 @@
     ^ browser
 !
 
+directory
+    ^ self fileList directory.
+
+    "Created: / 17-07-2018 / 12:55:22 / Claus Gittinger"
+!
+
 doubleClickAction
 
     ^ doubleClickAction
@@ -1233,11 +1237,13 @@
     ].
             
     aColOfItems notEmpty ifTrue:[
-        aColOfItems first makeVisible.
+        aColOfItems do:#makeVisible.
     ].
     self updateToExternFileHolderLock doLocked:[
         self treeSelectionHolder value:newSelection.
     ].
+
+    "Modified: / 17-07-2018 / 13:29:56 / Claus Gittinger"
 !
 
 selectNextFile