--- a/DirectoryContentsBrowser.st	Wed Nov 29 09:55:45 2006 +0100
+++ b/DirectoryContentsBrowser.st	Wed Nov 29 13:35:26 2006 +0100
@@ -1488,7 +1488,7 @@
         colOfFiles size > 100 ifTrue:[^ self].
 
         (colOfFiles collect:[:eachFile | browserItemList findFirst:[:item | item fileName = eachFile]])
-            sort reverse do:[:eachIndexToRemove |
+            asSortedCollection reverseDo:[:eachIndexToRemove |
                 eachIndexToRemove ~~ 0 ifTrue:[
                         browserItemList removeIndex:eachIndexToRemove
                     ]
@@ -2462,25 +2462,13 @@
 updateStep
     |timedOut sensor|
 
-OperatingSystem interruptsBlocked ifTrue:[
-     self halt:'1'.
-].
     sensor := self windowGroup sensor.
     (sensor anyButtonPressed or:[sensor shiftDown]) ifTrue:[ 
         "/ no update while scrolling
-OperatingSystem interruptsBlocked ifTrue:[
-     self halt:'2'.
-].
         timedOut := ( changeSema waitWithTimeoutMs:(self class updateTaskCyleTime) ) isNil.
         timedOut ifFalse:[changeSema signal].
-OperatingSystem interruptsBlocked ifTrue:[
-     self halt:'3'.
-].
         ^ self 
     ].
-OperatingSystem interruptsBlocked ifTrue:[
-     self halt:'4'.
-].
 
     AbortOperationRequest handle:[
         "if directory changed all running update flags must be reset"
@@ -2490,15 +2478,9 @@
         self filterChangeFlag:false.
         self sortBlockChangeFlag:false.
     ] do:[
-OperatingSystem interruptsBlocked ifTrue:[
-     self halt:'5'.
-].
         self debugMessage:'sema wait'.
         timedOut := (changeSema waitWithTimeoutMs:(self class updateTaskCyleTime)) isNil.
         self debugMessage:'timedOut:', timedOut asString.
-OperatingSystem interruptsBlocked ifTrue:[
-     self halt:'6'.
-].
 
         (self filterChangeFlag 
         or:[self sortBlockChangeFlag 
@@ -2509,14 +2491,7 @@
         ] ifFalse:[
             self updateWithTimeout:timedOut.
         ].
-OperatingSystem interruptsBlocked ifTrue:[
-     self halt:'7'.
-].
     ].
-OperatingSystem interruptsBlocked ifTrue:[
-     OperatingSystem unblockInterrupts.
-     self halt:'8'.
-].
 
     "Modified: / 25-07-2006 / 09:08:24 / cg"
 !
@@ -3247,5 +3222,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.196 2006-11-23 14:12:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.197 2006-11-29 12:35:26 stefan Exp $'
 ! !