--- a/Smalltalk.st	Mon Jun 19 13:37:06 2000 +0200
+++ b/Smalltalk.st	Mon Jun 19 14:04:09 2000 +0200
@@ -369,12 +369,15 @@
      This one is the very first entry into the smalltalk world,
      right after startup, ususally immediately followed by Smalltalk>>start.
      Notice: 
-	this is not called when an image is restarted; in this
-	case the show starts in Smalltalk>>restart."
+        this is not called when an image is restarted; in this
+        case the show starts in Smalltalk>>restart."
 
     Initializing := true.
     AbstractOperatingSystem initializeConcreteClass.
 
+    CommandLineArguments isNil ifTrue:[
+        CommandLineArguments := #('stx').
+    ].
     CommandLine := CommandLineArguments copy.
     CommandLineArguments := CommandLineArguments asOrderedCollection.
     CommandLineArguments removeAtIndex:1. "/ the command
@@ -421,17 +424,17 @@
     "/ must init display here - some classes (Color, Form) need it during initialize
     "/"
     Workstation notNil ifTrue:[
-	Workstation initialize
+        Workstation initialize
     ].
 
     Compiler := ByteCodeCompiler.
     Compiler isNil ifTrue:[
-	"
-	 ByteCodeCompiler is not in the system (i.e. has not been linked in)
-	 this allows at least immediate evaluations for runtime systems without compiler
-	 NOTICE: a parser is always needed, otherwise we cannot read resource files etc.
-	"
-	Compiler := Parser
+        "
+         ByteCodeCompiler is not in the system (i.e. has not been linked in)
+         this allows at least immediate evaluations for runtime systems without compiler
+         NOTICE: a parser is always needed, otherwise we cannot read resource files etc.
+        "
+        Compiler := Parser
     ].
 
     "/
@@ -447,8 +450,8 @@
     ImageStartTime := AbsoluteTime now.
 
     Display notNil ifTrue:[
-	Display initialize.
-	Display initializeDeviceResources.
+        Display initialize.
+        Display initializeDeviceResources.
     ].
     self initInterrupts.
     self initUserPreferences.
@@ -5562,5 +5565,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.448 2000-04-14 16:28:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.449 2000-06-19 12:04:09 cg Exp $'
 ! !