--- a/Smalltalk.st	Thu Feb 20 09:43:50 2014 +0100
+++ b/Smalltalk.st	Thu Feb 20 12:41:57 2014 +0100
@@ -3866,7 +3866,11 @@
 readEvalPrint
     "{ Pragma: +optSpace }"
 
-    'read-eval-print loop; exit with "#exit"; help with "?"' infoPrintCR.
+    Transcript showCR:(self hello).
+    Transcript showCR:(self copyrightString).
+    Transcript cr.
+    Transcript showCR:'Read-eval-print loop; exit with "#exit"; help with "?"'.
+
     ReadEvalPrintLoop new 
         prompt:'ST> ';
         doChunkFormat:false; 
@@ -8120,11 +8124,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1051 2014-02-19 22:11:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1052 2014-02-20 11:41:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1051 2014-02-19 22:11:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1052 2014-02-20 11:41:57 cg Exp $'
 !
 
 version_SVN