--- a/ProcessorScheduler.st	Wed Mar 04 17:43:01 1998 +0100
+++ b/ProcessorScheduler.st	Wed Mar 04 20:07:14 1998 +0100
@@ -977,16 +977,18 @@
 	 switch failed for some reason -
 	 destroy the bad process
 	"
-	p id ~~ 0 ifTrue:[
-	    'Processor [warning]: problem with process ' errorPrint. 
-		p id errorPrint. 
+	(id := p id) ~~ 0 ifTrue:[
+	    id notNil ifTrue:[
+	        'Processor [warning]: problem with process ' errorPrint. 
+		id errorPrint. 
 		p name notNil ifTrue:[
 		    ' (' errorPrint. p name errorPrint. ')' errorPrint.
 		].
 		'; hard-terminate it.' errorPrintCR.
-	    'Processor [info]: cleanup may take a while if stack is huge' infoPrintCR.
-	    p state:#suspended.
-	    self terminateNoSignal:p.
+	        'Processor [info]: cleanup may take a while if stack is huge' infoPrintCR.
+	        p state:#suspended.
+	        self terminateNoSignal:p.
+	    ]
 	]
     ].
     zombie notNil ifTrue:[
@@ -2676,6 +2678,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.146 1998-02-05 10:55:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.147 1998-03-04 19:07:14 cg Exp $'
 ! !
 ProcessorScheduler initialize!