--- a/DirectoryContentsBrowser.st	Thu Mar 13 16:07:55 2003 +0100
+++ b/DirectoryContentsBrowser.st	Thu Mar 13 16:15:10 2003 +0100
@@ -1031,8 +1031,8 @@
     showDir := self viewDirsInContentsBrowser value.
     (showDir and:[self directory notNil and:[self directory isRootDirectory not]]) ifTrue:[
         directoryUpItem := DirectoryContentsBrowser itemClass fileName:(self directory construct:'..').
-        locItems := filteredItems copy.
-        locItems addFirst:directoryUpItem.
+        locItems := OrderedCollection with:directoryUpItem.
+        locItems addAll:filteredItems.
     ] ifFalse:[
         locItems := filteredItems.
     ].
@@ -2869,5 +2869,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.88 2003-03-03 15:13:07 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.89 2003-03-13 15:15:10 mb Exp $'
 ! !