ProcessorScheduler.st
changeset 326 d2902942491d
parent 320 771a7c72c871
child 335 1f1cc22f2aa5
--- a/ProcessorScheduler.st	Sun Apr 02 13:07:58 1995 +0200
+++ b/ProcessorScheduler.st	Tue Apr 11 16:52:00 1995 +0200
@@ -34,7 +34,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.34 1995-03-26 14:51:15 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.35 1995-04-11 14:51:07 claus Exp $
 '!
 
 Smalltalk at:#Processor put:nil!
@@ -57,7 +57,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.34 1995-03-26 14:51:15 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.35 1995-04-11 14:51:07 claus Exp $
 "
 !
 
@@ -363,7 +363,12 @@
     "
      and, make the process runnable
     "
-    aProcess resume
+    aProcess state ~~ #stopped ifTrue:[
+	"
+	 and, make the process runnable
+	"
+	aProcess resume
+    ]
 ! !
 
 !ProcessorScheduler methodsFor:'constants'!