--- a/DirectoryContentsBrowser.st	Mon Dec 04 13:18:10 2006 +0100
+++ b/DirectoryContentsBrowser.st	Mon Dec 04 13:31:15 2006 +0100
@@ -1508,10 +1508,11 @@
 
     nextItem := filteredItems at:lastIndex ifAbsent:nil.
     nextItem notNil ifTrue:[
-        self selectItems:(Array with:nextItem).
+        self selectionInFileList value:(OrderedCollection with:nextItem).
+        self selectItems:(OrderedCollection with:nextItem).
     ].
 
-    "Modified: / 04-12-2006 / 13:13:16 / cg"
+    "Modified: / 04-12-2006 / 13:31:48 / cg"
 !
 
 viewPreviewChanged
@@ -3245,5 +3246,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.198 2006-12-04 12:18:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.199 2006-12-04 12:31:15 cg Exp $'
 ! !