--- a/AbstractLauncherApplication.st	Wed Feb 16 11:43:24 2000 +0100
+++ b/AbstractLauncherApplication.st	Wed Feb 16 11:54:09 2000 +0100
@@ -714,7 +714,9 @@
 startRemoteLauncher
     |host remoteDisplay|
 
-    host := Dialog request:'Remote Launcher on which display:'.
+    host := Dialog 
+                request:(resources string:'Remote Launcher on which display:')
+                initialAnswer:'<hostName>:0'.
     host size > 0 ifTrue:[
         (host includes:$:) ifFalse:[
             host := (host , ':0')
@@ -5486,5 +5488,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.102 2000-02-14 18:53:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.103 2000-02-16 10:54:09 cg Exp $'
 ! !