--- a/AbstractSettingsApplication.st	Tue Dec 02 14:42:02 2014 +0100
+++ b/AbstractSettingsApplication.st	Tue Dec 02 18:42:40 2014 +0100
@@ -577,11 +577,10 @@
     DebugView newDebugger.
     transcript := Transcript current.
     (transcript notNil and:[transcript isExternalStream not]) ifTrue:[
-	app := transcript topView application.
-	(app respondsTo:#reopenLauncher) ifTrue:[
-	    app reopenLauncher.
-	].
-    ].
+        app := transcript topView application.
+        app perform:#reopenLauncher ifNotUnderstood:[].
+    ].
+    self window topView raise.
 !
 
 saveRequest
@@ -18801,10 +18800,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.573 2014-11-29 01:52:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.574 2014-12-02 17:42:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.573 2014-11-29 01:52:56 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.574 2014-12-02 17:42:40 cg Exp $'
+! !
+