--- a/ProcessorScheduler.st	Wed Oct 12 18:50:46 2016 +0200
+++ b/ProcessorScheduler.st	Wed Oct 12 19:19:56 2016 +0200
@@ -264,15 +264,15 @@
     SchedulingPriority := 31.
 
     InvalidProcessSignal isNil ifTrue:[
-	InvalidProcessSignal := Error newSignalMayProceed:true.
-	InvalidProcessSignal nameClass:self message:#invalidProcessSignal.
-	InvalidProcessSignal notifierString:'invalid process'.
+        InvalidProcessSignal := Error newSignalMayProceed:true.
+        InvalidProcessSignal nameClass:self message:#invalidProcessSignal.
+        InvalidProcessSignal notifierString:'invalid process'.
     ].
 
     Processor isNil ifTrue:[
-	"create the one and only processor"
-
-	Processor := self basicNew initialize.
+        "create the one and only processor"
+
+        Smalltalk at:#Processor put:(self basicNew initialize).
     ].
 
     "
@@ -281,7 +281,7 @@
     "
     PureEventDriven := self threadsAvailable not.
     PureEventDriven ifTrue:[
-	'Processor [error]: no process support - running event driven' errorPrintCR
+        'Processor [error]: no process support - running event driven' errorPrintCR
     ].
     self initializeVMMaxProcessId