--- a/DirectoryTreeBrowser.st	Mon Oct 14 13:52:28 2002 +0200
+++ b/DirectoryTreeBrowser.st	Mon Oct 14 17:09:24 2002 +0200
@@ -1000,14 +1000,13 @@
 
     |selection|
 
+    selection := aColOfItems.
     aColOfItems notEmpty ifTrue:[
+        self multipleSelect ifFalse:[
+            selection := aColOfItems first.
+        ].
         aColOfItems first makeVisible.
     ].
-    self multipleSelect ifTrue:[
-        selection := aColOfItems.
-    ] ifFalse:[
-        selection := aColOfItems first.
-    ].
     self treeSelectionHolder value:selection.
 !
 
@@ -1181,5 +1180,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.17 2002-10-14 09:14:57 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.18 2002-10-14 15:09:24 stefan Exp $'
 ! !