--- a/Smalltalk.st	Fri Jul 29 17:59:48 2011 +0200
+++ b/Smalltalk.st	Fri Jul 29 18:08:01 2011 +0200
@@ -3990,6 +3990,15 @@
                 CommandLineArguments removeAtIndex:idx.
             ].
 
+            "/ look for a '--repl' argument
+            "/ then go into a read-eval-print loop immediately
+            idx := CommandLineArguments indexOf:'--repl'.
+            idx ~~ 0 ifTrue:[
+                CommandLineArguments removeAtIndex:idx.
+                self readEvalPrint.
+                self exit.
+            ].
+
             "/ look for a '-e filename' or '--execute filename' argument
             "/ this will force fileIn of filename only, no standard startup.
 
@@ -4119,7 +4128,7 @@
 
     self mainStartup:graphicalMode
 
-    "Modified: / 29-07-2011 / 17:59:01 / cg"
+    "Modified: / 29-07-2011 / 18:07:15 / cg"
 !
 
 startStartBlockProcess
@@ -7600,7 +7609,7 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.958 2011-07-29 15:59:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.959 2011-07-29 16:08:01 cg Exp $'
 !
 
 version_SVN