--- a/ProcSched.st	Wed Dec 13 20:58:20 1995 +0100
+++ b/ProcSched.st	Thu Dec 14 16:56:13 1995 +0100
@@ -1643,6 +1643,14 @@
     self threadSwitch:scheduler
 !
 
+schedulerInterrupt
+    "forced reschedule - switch to scheduler process which will decide
+     what to do now."
+
+    interruptedProcess := activeProcess.
+    self threadSwitch:scheduler
+!
+
 timeToNextTimeout
     "return the delta-T (in millis) to next timeout, or nil if
      there is none"
@@ -1750,6 +1758,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.53 1995-12-07 21:29:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.54 1995-12-14 15:56:13 cg Exp $'
 ! !
 ProcessorScheduler initialize!