--- a/DirectoryContentsBrowser.st	Fri Nov 28 11:27:08 2003 +0100
+++ b/DirectoryContentsBrowser.st	Mon Dec 01 12:14:01 2003 +0100
@@ -1049,7 +1049,7 @@
         addItemCol do:[: aNewItem |
             (browserList includes:aNewItem) not ifTrue:[
                 browserList add:aNewItem.
-                browserList sort:self sortBlockHolder value.
+                browserList := self sortBlockHolder value sortItemList:browserList.
                 self browserItemList add:aNewItem beforeIndex:(browserList indexOf:aNewItem).
             ]
         ].
@@ -2171,7 +2171,7 @@
             filteredItems := self evaluateFilter:(self allItems).
 "/        ].
 "/        sortTime := Time millisecondsToRun:[
-            filteredItems sort:self sortBlockHolder value.
+            filteredItems := self sortBlockHolder value sortItemList:filteredItems.
 "/        ].
 "/        Transcript showCR:'getAllTime:', getAllTime asString.
 "/        Transcript showCR:'filterTime:', filterTime asString.
@@ -2276,7 +2276,7 @@
 filterChanged
 
     filteredItems := self evaluateFilter:self allItems copy.
-    filteredItems sort:self sortBlockHolder value.
+    filteredItems := self sortBlockHolder value sortItemList:filteredItems.
     self
         enqueueMessage:#value 
         for:[ self setBrowserItemList:filteredItems ]
@@ -2299,7 +2299,7 @@
 sortBlockChanged
 
     filteredItems isNil ifTrue:[ ^ self].
-    filteredItems sort:self sortBlockHolder value.
+    filteredItems := self sortBlockHolder value sortItemList:filteredItems.
     self
         enqueueMessage:#value 
         for:[ self setBrowserItemList:filteredItems ]
@@ -3097,5 +3097,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.140 2003-11-24 20:03:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.141 2003-12-01 11:14:01 penk Exp $'
 ! !