--- a/ProcessorScheduler.st	Wed May 29 01:10:01 2019 +0200
+++ b/ProcessorScheduler.st	Wed May 29 01:10:15 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
@@ -1090,7 +1092,7 @@
 
                 state := aProcess state.
                 (state == #wrapWait or:[(state == #osWait) or:[state == #stopped]]) ifTrue:[
-                    aProcess state:#run.
+                    aProcess setStateRun.
                 ].
                 'ProcSched [info]: resumeIRQ ignored for process: ' infoPrint.
                 aProcess id infoPrint. ' in state: ' infoPrint. state infoPrintCR.
@@ -1101,13 +1103,14 @@
             quiescentProcessLists at:pri put:l.
         ].
         l addLast:aProcess.
-        aProcess state:#run.
+        aProcess setStateRun.
     ] ifFalse:[
         'ProcSched [info]: resumeIRQ for unknown process: ' infoPrint.
         id infoPrintCR.
     ]
 
-    "Modified: / 28.9.1998 / 11:36:53 / cg"
+    "Modified: / 28-09-1998 / 11:36:53 / cg"
+    "Modified: / 29-05-2019 / 01:05:42 / Claus Gittinger"
 !
 
 vmSuspendInterrupt:whyCode
@@ -1288,14 +1291,15 @@
     "make aProcess evaluate its pushed interrupt block(s)"
 
     self scheduleInterruptActionsOf:aProcess.
-    aProcess state ~~ #stopped ifTrue:[
+    aProcess isStopped ifFalse:[
         "
          make the process runnable
         "
         self resume:aProcess
     ]
 
-    "Modified: / 24.8.1998 / 18:31:32 / cg"
+    "Modified: / 24-08-1998 / 18:31:32 / cg"
+    "Modified: / 29-05-2019 / 01:05:10 / Claus Gittinger"
 !
 
 scheduleInterruptActionsOf:aProcess
@@ -1953,7 +1957,7 @@
         quiescentProcessLists at:pri put:listForPrio.
     ].
     listForPrio addLast:aProcess.
-    aProcess state:#run.
+    aProcess setStateRun.
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 
     pri > currentPriority ifTrue:[
@@ -1973,6 +1977,7 @@
     "Modified: / 29-07-1996 / 12:07:37 / cg"
     "Created: / 04-02-1998 / 20:58:28 / cg"
     "Modified: / 20-02-2017 / 11:34:03 / stefan"
+    "Modified: / 29-05-2019 / 01:04:42 / Claus Gittinger"
 !
 
 processTermination