--- a/Tools__BrowserList.st	Mon Jul 03 09:09:35 2017 +0200
+++ b/Tools__BrowserList.st	Wed Jul 05 10:44:49 2017 +0200
@@ -1467,8 +1467,9 @@
             [done] whileFalse:[
                 delay wait.
                 self applicationIsActive ifTrue:[
+                    done := true.
+                    activeProcess priorityRange:(Processor userBackgroundPriority to:Processor userSchedulingPriority).
                     activeProcess priority:(Processor userSchedulingPriority).
-                    done := true.
                 ].
             ].
         ] fork.
@@ -1476,7 +1477,7 @@
     [
         activeProcess 
             withPriority:(Processor userBackgroundPriority) 
-            to:(Processor activePriority)   
+            to:(Processor activePriority-1)   
             do:aBlock
     ] ensure:[ 
         done := true. 
@@ -1484,6 +1485,7 @@
     ].
 
     "Modified: / 23-02-2017 / 13:57:31 / stefan"
+    "Modified: / 05-07-2017 / 10:44:28 / cg"
 !
 
 inSlaveMode