--- a/ProcessorScheduler.st	Thu Jan 29 17:03:01 1998 +0100
+++ b/ProcessorScheduler.st	Thu Jan 29 17:05:21 1998 +0100
@@ -2267,6 +2267,13 @@
                 block value
             ] ifFalse:[
                 p isDead ifTrue:[
+                    
+                    "/ a timedBlock for a process which has already terminated
+                    "/ issue a warning and do not execute it.
+                    "/ (exeuting here may be dangerous, since it would run at scheduler priority here,
+                    "/  and thereby could block the whole smalltalk system.
+                    "/  For this reason is it IGNORED here.)
+                    
                     ('ProcessorScheduler [warning]: cannot evaluate timedBlock for dead process: ''' , p name , '''') infoPrintCR.
                     ('ProcessorScheduler [warning]: the timedBlock is: ' , block displayString) infoPrintCR.
                 ] ifFalse:[
@@ -2276,7 +2283,7 @@
         ]
     ]
 
-    "Modified: / 29.1.1998 / 17:02:25 / cg"
+    "Modified: / 29.1.1998 / 17:05:03 / cg"
 !
 
 removeTimedBlock:aBlock
@@ -2613,6 +2620,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.142 1998-01-29 16:03:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.143 1998-01-29 16:05:21 cg Exp $'
 ! !
 ProcessorScheduler initialize!