*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 11 Dec 2009 18:09:31 +0100
changeset 12612 ee03ea72c743
parent 12611 38d61d374d89
child 12613 8e75b84de318
*** empty log message ***
Smalltalk.st
--- a/Smalltalk.st	Fri Dec 11 17:54:52 2009 +0100
+++ b/Smalltalk.st	Fri Dec 11 18:09:31 2009 +0100
@@ -3891,6 +3891,9 @@
             idx := CommandLineArguments indexOf:'-e'.
             idx == 0 ifTrue:[
                 idx := CommandLineArguments indexOf:'--execute'.
+                idx == 0 ifTrue:[
+                    idx := CommandLineArguments indexOf:'--script'.
+                ].
             ].
             idx ~~ 0 ifTrue:[
                 arg := CommandLineArguments at:idx + 1.
@@ -7409,9 +7412,9 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.915 2009-12-11 16:54:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.916 2009-12-11 17:09:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.915 2009-12-11 16:54:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.916 2009-12-11 17:09:31 cg Exp $'
 ! !