--- a/ProcessorScheduler.st	Sat Jul 08 20:49:43 2000 +0200
+++ b/ProcessorScheduler.st	Sun Jul 09 13:53:33 2000 +0200
@@ -1244,7 +1244,7 @@
     currentPriority := pri.
     activeProcess := aProcess.
     activeProcessId := id.
-    ok := self threadSwitch:aProcess id:id singleStep:singleStep.
+    ok := self threadSwitchFrom:oldProcess to:aProcess id:id singleStep:singleStep.
 
     "time passes spent in some other process ...
      ... here again"
@@ -1293,7 +1293,7 @@
     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 !
 
-threadSwitch:aProcess id:id singleStep:singleStep
+threadSwitchFrom:oldProcess to:aProcess id:id singleStep:singleStep
     "continue execution in aProcess.
      WARNING: this is very a low level entry, no process administration is done here"
 
@@ -3124,6 +3124,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.187 2000-07-07 14:13:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.188 2000-07-09 11:53:33 cg Exp $'
 ! !
 ProcessorScheduler initialize!