--- a/NewLauncher.st	Fri Jan 23 19:05:21 1998 +0100
+++ b/NewLauncher.st	Fri Jan 23 19:12:36 1998 +0100
@@ -6116,6 +6116,14 @@
 
 ! !
 
+!NewLauncher methodsFor:'active help'!
+
+defaultInfoLabel
+
+    ^self updateInfo
+
+! !
+
 !NewLauncher methodsFor:'aspects'!
 
 enableDangerousMenuItemsInRemoteLauncher
@@ -6327,7 +6335,7 @@
 updateInfo
     "update the infoView from the current project"
 
-    |project projectName projectDir packageName defNameSpace msg args|
+    |project projectName projectDir packageName defNameSpace msg args infoLabel|
 
     (Project isNil or:[(project := Project current) isNil]) ifTrue:[
         projectName := '* none *'.
@@ -6358,7 +6366,9 @@
                         with:defNameSpace name.
     ].
 
-    self valueOfInfoLabel value:(resources string:msg withArgs:args)
+    infoLabel := resources string:msg withArgs:args.
+    self valueOfInfoLabel value: infoLabel.
+    ^infoLabel
 ! !
 
 !NewLauncher methodsFor:'private'!
@@ -6653,5 +6663,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.7 1998-01-22 18:56:29 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.8 1998-01-23 18:12:36 tz Exp $'
 ! !