--- a/ProcessorScheduler.st	Tue Jun 27 04:15:21 1995 +0200
+++ b/ProcessorScheduler.st	Sun Jul 02 03:08:30 1995 +0200
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.40 1995-06-06 03:55:15 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.41 1995-07-02 01:07:53 claus Exp $
 '!
 
 Smalltalk at:#Processor put:nil!
@@ -57,7 +57,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.40 1995-06-06 03:55:15 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.41 1995-07-02 01:07:53 claus Exp $
 "
 !
 
@@ -346,7 +346,12 @@
 	 destroy the bad process
 	"
 	p id ~~ 0 ifTrue:[
-	    'problem with process ' errorPrint. p id errorPrint. ' terminate it.' errorPrintNL.
+	    'SCHEDULRER: problem with process ' errorPrint. 
+		p id errorPrint. 
+		p name notNil ifTrue:[
+		    ' (' errorPrint. p name errorPrint. ')' errorPrint.
+		].
+		'; hard-terminate it.' errorPrintNL.
 	    p state:#suspended.
 	    self terminateNoSignal:p.
 	]