--- a/Smalltalk.st	Thu Nov 03 20:11:22 2016 +0100
+++ b/Smalltalk.st	Thu Nov 03 20:16:07 2016 +0100
@@ -4530,6 +4530,8 @@
                     self exit.
                 ].
                 
+                Processor exitWhenNoMoreUserProcesses:true.
+
                 process := [
                     self providingDisplayDo:[
                         VerboseStartup == true ifTrue:[
@@ -4616,13 +4618,12 @@
                         self exit.
                     ].
 ].
-                ] newProcess.
+                ] newProcess.    
                 process priority:(Processor userSchedulingPriority).
                 process name:'main'.
                 process beGroupLeader.
                 process resume.
 
-Processor exitWhenNoMoreUserProcesses:true.
                 Processor dispatchLoop.
                 VerboseStartup == true ifTrue:[
                     ('Smalltalk [info]: exit normally.') infoPrintCR.