--- a/SystemBrowser.st	Fri Jul 23 00:23:42 1999 +0200
+++ b/SystemBrowser.st	Fri Jul 23 00:53:38 1999 +0200
@@ -442,7 +442,9 @@
     "
      since this may take a long time, lower my priority ...
     "
-    Processor activeProcess withLowerPriorityDo:[
+    Processor activeProcess 
+        withPriority:Processor activePriority-1 to:Processor activePriority
+    do:[
         |checkedClasses checkBlock|
 
         checkedClasses := IdentitySet new.
@@ -1897,7 +1899,9 @@
     "
      since this may take a long time, lower my priority ...
     "
-    Processor activeProcess withLowerPriorityDo:[
+    Processor activeProcess 
+        withPriority:Processor activePriority-1 to:Processor activePriority
+    do:[
         |checkedClasses checkBlock|
 
         checkedClasses := IdentitySet new.
@@ -2036,6 +2040,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.91 1999-06-26 15:23:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.92 1999-07-22 22:53:12 cg Exp $'
 ! !
 SystemBrowser initialize!