--- a/NewLauncher.st	Tue Aug 04 16:57:58 1998 +0200
+++ b/NewLauncher.st	Tue Aug 04 17:10:26 1998 +0200
@@ -2406,16 +2406,19 @@
      not affect living views ...)
      WARNING: bad design: Message known in LauncherDialogs"
 
-    |contents builder newLauncher|
+    |contents builder newLauncher wasShowingHelp|
+
+    wasShowingHelp := self showingHelp.
 
     contents := transcript endEntry; list.
     builder := self class openAt:(self window origin).
     builder window waitUntilVisible.
     newLauncher := builder application.
     newLauncher transcript list:contents; hideCursor; scrollToBottom; cursorToEnd; showCursor.
+    newLauncher showingHelp:wasShowingHelp.
     DebugView newDebugger.
 
-    "Modified: / 31.7.1998 / 22:48:17 / cg"
+    "Modified: / 4.8.1998 / 17:08:33 / cg"
 ! !
 
 !NewLauncher methodsFor:'queries'!
@@ -3457,5 +3460,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.91 1998-08-03 23:33:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.92 1998-08-04 15:10:26 cg Exp $'
 ! !