--- a/Launcher.st	Mon Aug 17 10:22:56 1998 +0200
+++ b/Launcher.st	Mon Aug 17 10:24:26 1998 +0200
@@ -153,9 +153,11 @@
     "return the launcher running on the current screen.
      (for access via addMenu/ removeMenu)"
 
-    OpenLaunchers do:[:aLauncher |
-        aLauncher window graphicsDevice == Screen current ifTrue:[
-            ^ aLauncher
+    OpenLaunchers size > 0 ifTrue:[
+        OpenLaunchers do:[:aLauncher |
+            aLauncher window graphicsDevice == Screen current ifTrue:[
+                ^ aLauncher
+            ]
         ]
     ].
     ^ nil.
@@ -164,8 +166,8 @@
      Launcher current
     "
 
-    "Modified: 5.7.1996 / 17:55:28 / cg"
-    "Modified: 9.9.1996 / 22:41:36 / stefan"
+    "Modified: / 9.9.1996 / 22:41:36 / stefan"
+    "Modified: / 17.8.1998 / 10:23:20 / cg"
 !
 
 openLaunchers
@@ -5654,5 +5656,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.369 1998-08-14 11:06:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.370 1998-08-17 08:24:26 cg Exp $'
 ! !