--- a/ProcSched.st	Fri Dec 22 23:22:15 1995 +0100
+++ b/ProcSched.st	Fri Dec 22 23:38:40 1995 +0100
@@ -1219,6 +1219,11 @@
     |pri id l wasBlocked|
 
     aProcess isNil ifTrue:[^ self].
+    aProcess == scheduler ifTrue:[
+	MiniDebugger enterWithMessage:'PROCESSOR: I will not terminate scheduler'.
+	^ self
+    ].
+
     id := aProcess id.
     id isNil ifTrue:[^ self].   "already dead"
 
@@ -1783,6 +1788,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.61 1995-12-22 22:22:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.62 1995-12-22 22:38:40 cg Exp $'
 ! !
 ProcessorScheduler initialize!