--- a/ProcessorScheduler.st	Wed May 24 14:44:58 1995 +0200
+++ b/ProcessorScheduler.st	Tue Jun 06 05:56:11 1995 +0200
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.39 1995-05-24 12:43:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.40 1995-06-06 03:55:15 claus Exp $
 '!
 
 Smalltalk at:#Processor put:nil!
@@ -57,7 +57,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.39 1995-05-24 12:43:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.40 1995-06-06 03:55:15 claus Exp $
 "
 !
 
@@ -616,8 +616,6 @@
 newProcessFor:aProcess withId:idWant
     "private entry for Process restart - do not use in your program"
 
-    |id|
-
     (self class threadCreate:aProcess withId:idWant) ~~ idWant ifTrue:[
 	^ false
     ].
@@ -1041,7 +1039,9 @@
 
     (self class isPureEventDriven 
     or:[aProcess id == 0
-    or:[aProcess nameOrId endsWith:'dispatcher']]) ifTrue:[
+    or:[(Display notNil and:[Display dispatchProcess == aProcess])
+	" nameOrId endsWith:'dispatcher' "
+    ]]) ifTrue:[
 	^ true
     ].
     ^ false