--- a/ProcessorScheduler.st	Wed Aug 15 14:47:33 2018 +0200
+++ b/ProcessorScheduler.st	Wed Aug 15 14:47:40 2018 +0200
@@ -940,9 +940,9 @@
      p l|
 
     KnownProcesses isNil ifTrue:[
-	KnownProcesses := WeakArray new:30.
-	KnownProcesses addDependent:self class.
-	KnownProcessIds := OrderedCollection new:30.
+        KnownProcesses := WeakArray new:30.
+        KnownProcesses addDependent:self class.
+        KnownProcessIds := OrderedCollection new:30.
     ].
 
     "
@@ -975,7 +975,7 @@
 
     supportDynamicPriorities := false.
     exitWhenNoMoreUserProcesses isNil ifTrue:[
-	exitWhenNoMoreUserProcesses := false. "/ mhmh - how about true ?
+        exitWhenNoMoreUserProcesses := false. "/ mhmh - how about true ?
     ].
 
     "
@@ -987,10 +987,10 @@
     currentPriority := SchedulingPriority.
     p := Process basicNew.
     p
-	setId:0 state:#run;
-	setPriority:currentPriority;
-	name:'scheduler';
-	beSystemProcess.
+        setId:0 state:#run;
+        setPriority:currentPriority;
+        name:'Smalltalk: scheduler';
+        beSystemProcess.
 
     scheduler := activeProcess := p.
     activeProcessId := 0.
@@ -1003,11 +1003,12 @@
     "
     useIOInterrupts ifTrue:[ObjectMemory ioInterruptHandler:self].
     ObjectMemory
-	timerInterruptHandler:self;
-	childSignalInterruptHandler:self.
-
-    "Modified: / 7.1.1997 / 16:48:26 / stefan"
-    "Modified: / 4.2.1999 / 13:08:39 / cg"
+        timerInterruptHandler:self;
+        childSignalInterruptHandler:self.
+
+    "Modified: / 07-01-1997 / 16:48:26 / stefan"
+    "Modified: / 04-02-1999 / 13:08:39 / cg"
+    "Modified: / 15-08-2018 / 14:45:10 / Claus Gittinger"
 !
 
 reinitialize
@@ -2367,19 +2368,19 @@
     timeSliceNeededSemaphore := Semaphore name:'timeSlice needed'.
 
     timeSliceProcess := [
-	[
-	    self timeSlicingLoop.
-	] ifCurtailed:[
-	    timeSliceProcess := nil.
-	    'Processor [info]: timeslicer finished' infoPrintCR.
-	]
+        [
+            self timeSlicingLoop.
+        ] ifCurtailed:[
+            timeSliceProcess := nil.
+            'Processor [info]: timeslicer finished' infoPrintCR.
+        ]
     ] newProcess.
     timeSliceProcess
-	priority:HighestPriority;
-	name:'time slicer';
-	restartable:true;
-	beSystemProcess;
-	resume.
+        priority:HighestPriority;
+        name:'Smalltalk: time slicer';
+        restartable:true;
+        beSystemProcess;
+        resume.
 
     "
      Processor stopTimeSlicing.
@@ -2388,6 +2389,7 @@
 
     "Created: / 17-01-1997 / 16:42:02 / cg"
     "Modified: / 03-11-2011 / 21:21:10 / cg"
+    "Modified: / 15-08-2018 / 14:46:05 / Claus Gittinger"
 !
 
 stopTimeSlicing
@@ -3428,24 +3430,25 @@
 
 timeoutHandlerProcess
     (timeoutHandlerProcess isNil or:[timeoutHandlerProcess isDead]) ifTrue:[
-	timeoutHandlerProcess :=
-		[
-		    [
-			self timeoutHandlerProcessLoop.
-		    ] ensure:[
-			timeoutHandlerProcess := nil
-		    ].
-		] newProcess.
-
-	timeoutHandlerProcess
-	    priority:TimingPriority;
-	    name:'timeout handler';
-	    beSystemProcess;
-	    resume.
+        timeoutHandlerProcess :=
+                [
+                    [
+                        self timeoutHandlerProcessLoop.
+                    ] ensure:[
+                        timeoutHandlerProcess := nil
+                    ].
+                ] newProcess.
+
+        timeoutHandlerProcess
+            priority:TimingPriority;
+            name:'Smalltalk: timeout handler';
+            beSystemProcess;
+            resume.
     ].
     ^ timeoutHandlerProcess.
 
     "Modified: / 20-07-2006 / 09:52:27 / cg"
+    "Modified: / 15-08-2018 / 14:46:39 / Claus Gittinger"
 !
 
 timeoutHandlerProcessLoop