--- a/OldLauncher.st	Thu Jan 13 01:14:55 1994 +0100
+++ b/OldLauncher.st	Thu Jan 13 01:16:57 1994 +0100
@@ -24,7 +24,7 @@
 
 allows startup of smalltalk applications
 
-$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.7 1994-01-08 17:27:28 claus Exp $
+$Header: /cvs/stx/stx/libtool/OldLauncher.st,v 1.8 1994-01-13 00:16:57 claus Exp $
 written spring 91 by claus
 '!
 
@@ -359,7 +359,9 @@
         enterBox destroy.
         enterBox := nil
     ].
-    super destroy
+    (self confirm:(resources string:'close Launcher ?')) ifTrue:[
+        super destroy
+    ]
 !
 
 addToCurrentProject