--- a/DirectoryContentsBrowser.st	Thu Apr 03 00:51:08 2003 +0200
+++ b/DirectoryContentsBrowser.st	Thu Apr 03 15:39:26 2003 +0200
@@ -1175,13 +1175,13 @@
 
 viewedColumnsChanged
 
-    | columns buffer currentSortOrder currentSortOrderColumn currentSortOrderReverse selection|
+    |columns buffer currentSortOrder currentSortOrderColumn currentSortOrderReverse selection|
 
     selection := self selectedItems.
-    columns := self class tableColumns 
+    buffer := self class tableColumns 
                 collect:[:col| (DataSetColumnSpec new fromLiteralArrayEncoding:col)].
 
-    buffer := columns copy.
+    columns := buffer asOrderedCollection.
     self viewDetails value = false ifTrue:[
         browser showLabels:false.
         buffer do:[:col |
@@ -2761,5 +2761,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.96 2003-04-02 18:03:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.97 2003-04-03 13:39:26 stefan Exp $'
 ! !