--- a/Smalltalk.st	Tue May 08 11:10:11 2018 +0200
+++ b/Smalltalk.st	Tue May 08 11:30:21 2018 +0200
@@ -4239,19 +4239,20 @@
     repl := ReadEvalPrintLoop new.
 
     SilentLoading == true ifTrue:[
-	repl answerPrompt:''.
+        repl answerPrompt:''.
+        repl prompt:''.
     ] ifFalse:[
-	Transcript showCR:(self hello).
-	Transcript showCR:(self copyrightString).
-	Transcript cr.
-	Transcript showCR:'Read-eval-print loop; exit with "#exit"; help with "?"'.
+        Transcript showCR:(self hello).
+        Transcript showCR:(self copyrightString).
+        Transcript cr.
+        Transcript showCR:'Read-eval-print loop; exit with "#exit"; help with "?"'.
+        repl prompt:'STX> '.
     ].
 
     repl
-	prompt:'ST> ';
-	doChunkFormat:false;
-	error:Stderr;
-	readEvalPrintLoop
+        doChunkFormat:false;
+        error:Stderr;
+        readEvalPrintLoop
 !
 
 restart
@@ -9110,3 +9111,4 @@
 version_SVN
     ^ '$ Id: Smalltalk.st 10648 2011-06-23 15:55:10Z vranyj1  $'
 ! !
+