--- a/Semaphore.st	Sun Nov 25 10:53:30 2012 +0100
+++ b/Semaphore.st	Mon Nov 26 22:48:36 2012 +0100
@@ -448,7 +448,7 @@
     "/ todo: resume by priority; higher first.
     anyDead := false.
     processes do:[:eachProcess | 
-        eachProcess isDead ifTrue:[
+        (eachProcess isNil or:[eachProcess isDead]) ifTrue:[
             Transcript show:'oops: a dead process: '; showCR:eachProcess.
             anyDead := true.
         ] ifFalse:[
@@ -977,9 +977,9 @@
 !Semaphore class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.87 2012-11-07 12:29:01 anwild Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.88 2012-11-26 21:48:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.87 2012-11-07 12:29:01 anwild Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.88 2012-11-26 21:48:36 cg Exp $'
 ! !