--- a/Smalltalk.st	Thu Mar 02 23:50:17 2006 +0100
+++ b/Smalltalk.st	Thu Mar 02 23:50:53 2006 +0100
@@ -3022,17 +3022,15 @@
         ].
 
         "look for a '-f filename' or '--file filename' argument 
-         this will force evaluation of filename instead of smalltalk.rc
-
-         If there is only one argument, which does not start with a '-',
-         this is the same as -f filename"
-
-        StandAlone ifFalse:[
-            (CommandLineArguments size == 1 
-             and:[(CommandLineArguments first startsWith:$-) not]) ifTrue:[
-                myName := CommandLineArguments removeFirst.
-            ].
-        ].
+         this will force evaluation of filename instead of smalltalk.rc"
+
+"/        "If there is only one argument, which does not start with a '-',
+"/         this is the same as -f filename"
+"/        (CommandLineArguments size == 1 
+"/         and:[(CommandLineArguments first startsWith:$-) not]) ifTrue:[
+"/            myName := CommandLineArguments removeFirst.
+"/        ].
+
         myName isNil ifTrue:[
             idx := CommandLineArguments indexOf:'-f'.
             idx == 0 ifTrue:[
@@ -6667,5 +6665,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.715 2006-03-02 22:50:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.716 2006-03-02 22:50:53 cg Exp $'
 ! !