--- a/Launcher.st	Mon Aug 17 10:24:26 1998 +0200
+++ b/Launcher.st	Tue Aug 18 15:07:54 1998 +0200
@@ -1091,7 +1091,7 @@
 
     Processor 
         addTimedBlock:[
-                        [Screen current leftButtonPressed] whileTrue:[Processor yield].
+                        [Screen current leftButtonPressed] whileTrue:[Delay waitForSeconds:0.05].
 
                         area := Rectangle fromUser.
                         (area width > 0 and:[area height > 0]) ifTrue:[
@@ -1100,7 +1100,7 @@
                       ] 
         afterSeconds:1
 
-    "Modified: 13.2.1997 / 16:02:35 / cg"
+    "Modified: / 18.8.1998 / 14:59:45 / cg"
 !
 
 startApplication:aSymbol
@@ -2403,7 +2403,9 @@
 
         launcher notNil ifTrue:[
             launcher window graphicsDevice == device ifTrue:[
-                OpenLaunchers removeIdentical:launcher ifAbsent:nil.
+                OpenLaunchers notNil ifTrue:[
+                    OpenLaunchers removeIdentical:launcher ifAbsent:nil.
+                ].
                 launcher class = NewLauncher
                     ifTrue:  [launcher close]
                     ifFalse: [launcher window destroy]
@@ -2432,7 +2434,7 @@
         transcript showCR:'***********************************************'.
     ]
 
-    "Modified: 1.2.1997 / 12:08:01 / cg"
+    "Modified: / 18.8.1998 / 15:03:54 / cg"
 !
 
 setupViewsIn:topView 
@@ -5656,5 +5658,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.370 1998-08-17 08:24:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.371 1998-08-18 13:07:54 cg Exp $'
 ! !