--- a/Smalltalk.st	Sat Nov 05 12:14:29 2016 +0100
+++ b/Smalltalk.st	Sat Nov 05 12:15:25 2016 +0100
@@ -4542,6 +4542,7 @@
                 process := [
                     self providingDisplayDo:[
                         isRepl ifTrue:[
+                            Processor activeProcess name:'repl'.
                             self readEvalPrint.
                             self exit.
                         ].