diff -r 9fce54d27da9 -r 58c1a77c5fdb NewLauncher.st
--- a/NewLauncher.st	Thu Feb 27 18:20:03 2014 +0100
+++ b/NewLauncher.st	Fri Feb 28 13:49:53 2014 +0100
@@ -4537,7 +4537,7 @@
 
     super allButOpenInterface:anInterface.
 
-    self setupTranscript; updateInfo.
+    self setupTranscript.
     Project notNil ifTrue: [Project addDependent:self].
     ObjectMemory addDependent:self.
     self class openLaunchers add: self.
@@ -4574,50 +4574,52 @@
 postOpenWith:aBuilder
     |toolInfo addMenuForToolInfo|
 
+    self updateInfo.
+
     "/ increase my priority"
 "/    self windowGroup process priority:(Processor userSchedulingPriority + 1).
     Processor activeProcess priority:(Processor userSchedulingPriority + 1).
 
     addMenuForToolInfo :=
-	[:eachToolInfo|
-	    |menuItem originalLabel|
-
-	    menuItem := eachToolInfo item.
-	    originalLabel := eachToolInfo originalLabel.
-	    originalLabel notNil ifTrue:[ menuItem label:originalLabel ].
-	    self
-		addMenuItem:menuItem
-		from:(eachToolInfo resourceProvider)
-		in:eachToolInfo where
-		position:eachToolInfo positionSpec
-		space:eachToolInfo space
-	].
+        [:eachToolInfo|
+            |menuItem originalLabel|
+
+            menuItem := eachToolInfo item.
+            originalLabel := eachToolInfo originalLabel.
+            originalLabel notNil ifTrue:[ menuItem label:originalLabel ].
+            self
+                addMenuItem:menuItem
+                from:(eachToolInfo resourceProvider)
+                in:eachToolInfo where
+                position:eachToolInfo positionSpec
+                space:eachToolInfo space
+        ].
 
     "/ add user tools
     UserAddedToolBarItems notNil ifTrue:[
-	toolInfo := UserAddedToolBarItems.
-	[
-	    UserAddedToolBarItems := nil.
-	     toolInfo do:addMenuForToolInfo.
-	] ifCurtailed:[
-	    UserAddedToolBarItems := toolInfo
-	]
+        toolInfo := UserAddedToolBarItems.
+        [
+            UserAddedToolBarItems := nil.
+             toolInfo do:addMenuForToolInfo.
+        ] ifCurtailed:[
+            UserAddedToolBarItems := toolInfo
+        ]
     ].
     UserAddedMenuItems notNil ifTrue:[
-	toolInfo := UserAddedMenuItems.
-	[
-	    UserAddedMenuItems := nil.
-	    toolInfo do:addMenuForToolInfo.
-	] ifCurtailed:[
-	    UserAddedMenuItems := toolInfo
-	]
+        toolInfo := UserAddedMenuItems.
+        [
+            UserAddedMenuItems := nil.
+            toolInfo do:addMenuForToolInfo.
+        ] ifCurtailed:[
+            UserAddedMenuItems := toolInfo
+        ]
     ].
 
     super postOpenWith:aBuilder.
 
     "/ set the time-block
     UserPreferences current showClockInLauncher ifTrue:[
-	self startClock
+        self startClock
     ].
 
     "Modified: / 16-11-2006 / 12:50:21 / cg"
@@ -5083,14 +5085,14 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.488 2014-02-25 10:42:24 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.489 2014-02-28 12:49:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.488 2014-02-25 10:42:24 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.489 2014-02-28 12:49:53 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: NewLauncher.st,v 1.488 2014-02-25 10:42:24 vrany Exp $'
+    ^ '$Id: NewLauncher.st,v 1.489 2014-02-28 12:49:53 cg Exp $'
 ! !