--- 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 $'
 ! !

--- a/SystemStatusMonitor.st	Tue Dec 14 16:00:17 2004 +0100
+++ b/SystemStatusMonitor.st	Tue Dec 14 16:01:03 2004 +0100
@@ -218,7 +218,7 @@
                     myDelay wait.
                     self updateList.
                 ]
-            ] valueOnUnwindDo:[
+            ] ifCurtailed:[
                 updateProcess := nil
             ]
         ]  forkAt:(Processor userSchedulingPriority + 1).
@@ -249,5 +249,5 @@
 !SystemStatusMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemStatusMonitor.st,v 1.15 2002-08-22 16:51:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemStatusMonitor.st,v 1.16 2004-12-14 15:01:03 cg Exp $'
 ! !