--- a/DirectoryContentsBrowser.st	Tue Feb 25 16:03:29 2003 +0100
+++ b/DirectoryContentsBrowser.st	Wed Feb 26 13:39:26 2003 +0100
@@ -2226,23 +2226,25 @@
 
 updateStep
     AbortSignal handle:[
-        self debugMessage:'get an abort signal'.
+        self debugMessage:'got an abort signal'.
         self directoryContentsChangeFlag:false.
         self filterChangeFlag:false.
         self sortBlockChangeFlag:false.
     ] do:[
-        | timeOut |
+        | timedOut |
+
         self debugMessage:'sema wait'.
-        timeOut := (self changeSema waitWithTimeoutMs:(self class updateTaskCyleTime)) isNil.
-        self debugMessage:'timeOut:', timeOut asString.
-        (self filterChangeFlag or:[self sortBlockChangeFlag or:[self directoryChangeFlag]]) ifTrue:[
-            | oldCursor |
-            oldCursor := self window cursor.
-            self showCursor:(Cursor execute).
-            self updateBlock value:timeOut.
-            self showCursor:oldCursor.
+        timedOut := (self changeSema waitWithTimeoutMs:(self class updateTaskCyleTime)) isNil.
+        self debugMessage:'timedOut:', timedOut asString.
+
+        (self filterChangeFlag 
+        or:[self sortBlockChangeFlag 
+        or:[self directoryChangeFlag]]) ifTrue:[
+            self withCursor:Cursor execute do:[
+                self updateBlock value:timedOut.
+            ]
         ] ifFalse:[
-            self updateBlock value:timeOut.
+            self updateBlock value:timedOut.
         ]
     ]
 ! !
@@ -2867,5 +2869,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.81 2003-02-25 12:37:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.82 2003-02-26 12:39:26 cg Exp $'
 ! !