--- a/DirectoryContentsBrowser.st	Wed Nov 05 17:34:12 2008 +0100
+++ b/DirectoryContentsBrowser.st	Thu Nov 06 09:42:37 2008 +0100
@@ -1205,25 +1205,28 @@
     filterBox backgroundColor:clr.
 !
 
-setBrowserItemList:filteredItems
-
-    |showDir directoryUpItem locItems|
+setBrowserItemList:aFilteredItems
+
+    |showDir directoryUpItem locItems browserList|
 
     showDir := self viewDirsInContentsBrowser value.
+
     (showDir and:[self directory notNil and:[self directory isRootDirectory not]]) ifTrue:[
         locItems := OrderedCollection new.
         directoryUpItem := DirectoryContentsBrowser itemClass fileName:(self directory construct:'..').
         directoryUpItem notNil ifTrue:[
             locItems add:directoryUpItem.
         ].
-        locItems addAll:filteredItems.
+        locItems addAll:aFilteredItems.
     ] ifFalse:[
-        locItems := filteredItems.
+        locItems := aFilteredItems.
     ].
     self updateToExternFileHolderLock doLocked:[
-        self browserItemList contents:locItems asList.
+        browserList := self browserItemList.
+        "/ bugfix - first remove all entries in list
+        browserList removeAll.
+        browserList contents:locItems.
     ].
-"/    Transcript showCR:'after insert list', Timestamp now asString.
     self selectCurrentFiles.
 !
 
@@ -3285,5 +3288,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.217 2008-10-23 06:13:14 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.218 2008-11-06 08:42:37 ca Exp $'
 ! !