--- a/NewLauncher.st	Thu Aug 19 03:22:39 1999 +0200
+++ b/NewLauncher.st	Thu Aug 19 14:45:46 1999 +0200
@@ -2428,7 +2428,8 @@
 postOpenWith:aBuilder
 
     "/ increase my priority"
-    self windowGroup process priority:(Processor userSchedulingPriority + 1).
+"/    self windowGroup process priority:(Processor userSchedulingPriority + 1).
+    Processor activeProcess priority:(Processor userSchedulingPriority + 1).
 
     "/ add user tools
     UserAddedTools notNil ifTrue:[
@@ -2623,9 +2624,11 @@
 
 activeHelp
 
-    ^ helpIsOn ? (helpIsOn := false asValue)
-
-    "Modified: / 18.8.1998 / 16:05:40 / cg"
+    helpIsOn isNil ifTrue:[
+        helpIsOn := false asValue
+    ].
+    ^ helpIsOn
+
 !
 
 toggleActiveHelp:aBoolean
@@ -2706,5 +2709,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.150 1999-08-17 10:19:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.151 1999-08-19 12:45:46 cg Exp $'
 ! !