--- a/NewLauncher.st	Thu Aug 12 20:08:28 1999 +0200
+++ b/NewLauncher.st	Tue Aug 17 12:19:53 1999 +0200
@@ -2507,7 +2507,7 @@
             launcher := self class current.
         ].
 
-        launcher notNil ifTrue:[
+        (launcher notNil and:[launcher ~~ self]) ifTrue:[
             launcher window graphicsDevice == device ifTrue:[
                 OpenLaunchers notNil ifTrue:[
                     OpenLaunchers remove:launcher ifAbsent:nil.
@@ -2706,5 +2706,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.149 1999-08-10 18:58:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.150 1999-08-17 10:19:53 cg Exp $'
 ! !