--- a/Smalltalk.st	Mon Oct 13 14:46:15 1997 +0200
+++ b/Smalltalk.st	Mon Oct 13 14:50:24 1997 +0200
@@ -2002,8 +2002,8 @@
             idx ~~ 0 ifTrue:[
                 arg := CommandLineArguments at:idx + 1.
 
-                CommandLineArguments removeAtIndex:idx+1.
-                CommandLineArguments removeAtIndex:idx.
+                CommandLineArguments
+		    removeAtIndex:idx+1; removeAtIndex:idx.
 
                 arg = '-' ifTrue:[
                     self fileInStream:Stdin
@@ -2030,8 +2030,8 @@
         idx := CommandLineArguments indexOf:'-f'.
         idx ~~ 0 ifTrue:[
             myName := (CommandLineArguments at:idx + 1).
-            CommandLineArguments removeAtIndex:idx+1.
-            CommandLineArguments removeAtIndex:idx.
+            CommandLineArguments
+		removeAtIndex:idx+1; removeAtIndex:idx.
         ].
 
 	"/ patches are installed, even if system methods are
@@ -3815,5 +3815,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.257 1997-10-06 16:47:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.258 1997-10-13 12:50:24 cg Exp $'
 ! !