--- a/AbstractLauncherApplication.st	Wed Aug 25 17:07:21 1999 +0200
+++ b/AbstractLauncherApplication.st	Wed Aug 25 18:01:32 1999 +0200
@@ -714,21 +714,21 @@
 
     host := Dialog request:'Remote Launcher on which display:'.
     host size > 0 ifTrue:[
-	(host includes:$:) ifFalse:[
-	    host := (host , ':0')
-	].
-	remoteDisplay := XWorkstation new.
-	remoteDisplay := remoteDisplay initializeFor:host.
-	remoteDisplay isNil ifTrue:[
-	    self warn:'Could not connect to display: ''' , host , '''.'.
-	    ^ self
-	].
-	remoteDisplay startDispatch.
-	remoteDisplay keyboardMap:(Screen current keyboardMap).
-	DeviceWorkstation currentScreenQuerySignal answer:remoteDisplay
-	do:[
-	    self class open.
-	]
+        (host includes:$:) ifFalse:[
+            host := (host , ':0')
+        ].
+        remoteDisplay := XWorkstation new.
+        remoteDisplay := remoteDisplay initializeFor:host.
+        remoteDisplay isNil ifTrue:[
+            self warn:'Could not connect to display: ''' , host , '''.'.
+            ^ self
+        ].
+        remoteDisplay startDispatch.
+        remoteDisplay keyboardMap:(Screen current keyboardMap).
+        Screen currentScreenQuerySignal answer:remoteDisplay
+        do:[
+            self class open.
+        ]
     ].
 
     "Created: / 10.9.1998 / 11:48:42 / cg"
@@ -4787,5 +4787,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.77 1999-08-12 18:08:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.78 1999-08-25 16:01:32 cg Exp $'
 ! !