--- a/XWorkstation.st	Sat Dec 23 01:36:56 1995 +0100
+++ b/XWorkstation.st	Sat Dec 23 20:15:27 1995 +0100
@@ -5153,15 +5153,15 @@
      DISPLAY-variable or command line argument) or the name of the server 
      as hostname:number"
 
-    |dpyName index|
+    |dpyName index arguments|
 
     dpyName := aDisplayName.
     dpyName isNil ifTrue:[
 	"look for a '-display xxx' argument"
-	Arguments notNil ifTrue:[
-	    index := Arguments indexOf:'-display'.
-	    (index between:1 and:(Arguments size - 1)) ifTrue:[
-		dpyName := Arguments at:index+1
+	(arguments := Smalltalk commandLineArguments) notNil ifTrue:[
+	    index := arguments indexOf:'-display'.
+	    (index between:1 and:(arguments size - 1)) ifTrue:[
+		dpyName := arguments at:index+1
 	    ]
 	]
     ].
@@ -7069,6 +7069,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.92 1995-12-15 12:20:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.93 1995-12-23 19:15:27 cg Exp $'
 ! !
 XWorkstation initialize!