--- a/Launcher.st	Fri Jul 05 17:03:17 1996 +0200
+++ b/Launcher.st	Fri Jul 05 17:41:50 1996 +0200
@@ -2920,8 +2920,10 @@
             launcher := self class current.
         ].
         launcher notNil ifTrue:[
-            OpenLaunchers remove:launcher ifAbsent:nil.
-            launcher window destroy.
+            launcher window device == device ifTrue:[
+                OpenLaunchers remove:launcher ifAbsent:nil.
+                launcher window destroy.
+            ]
         ]
     ].
 
@@ -2946,7 +2948,7 @@
         transcript showCR:'***********************************************'.
     ]
 
-    "Modified: 5.7.1996 / 16:57:13 / cg"
+    "Modified: 5.7.1996 / 17:38:20 / cg"
 !
 
 setupViewsIn:topView 
@@ -3172,5 +3174,5 @@
 !NewLauncher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.163 1996-07-05 15:03:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.164 1996-07-05 15:41:50 cg Exp $'
 ! !