--- a/NewLauncher.st	Tue Dec 14 16:00:17 2004 +0100
+++ b/NewLauncher.st	Tue Dec 14 16:01:03 2004 +0100
@@ -3673,7 +3673,7 @@
 !
 
 postOpenWith:aBuilder
-    |toolInfo addMenuForToolInfo|
+    |toolInfo addMenuForToolInfo window|
 
     "/ increase my priority"
 "/    self windowGroup process priority:(Processor userSchedulingPriority + 1).
@@ -3721,14 +3721,15 @@
         self startClock
     ].
 
+    window := self window.
     "/ change my minimum height ...
-    self window minExtent:(self window minExtent x
-                           @
-                           (self window minExtent y
-                            "/ + (builder componentAt:'infoBarSubSpec') height
-                            - 12
-                           )
-                          ).
+    window minExtent:(window minExtent x
+                      @
+                     (window minExtent y
+                      "/ + (builder componentAt:'infoBarSubSpec') height
+                      - 12
+                     )
+                    ).
 !
 
 requestForWindowClose
@@ -4037,5 +4038,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.319 2004-12-14 15:00:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.320 2004-12-14 15:00:56 cg Exp $'
 ! !