--- a/Semaphore.st	Wed Oct 15 12:52:32 2008 +0200
+++ b/Semaphore.st	Fri Oct 17 15:32:37 2008 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#Semaphore
@@ -523,8 +522,7 @@
 
         count := count + 1.
         waitingProcesses notNil ifTrue:[
-            p := self removeFirstWaitingProcess.
-            p notNil ifTrue:[
+            [ (p := self removeFirstWaitingProcess) notNil ] whileTrue:[
                 Processor resume:p.
             ].
         ].
@@ -926,5 +924,5 @@
 !Semaphore class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.75 2006-07-28 20:38:31 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.76 2008-10-17 13:32:37 ca Exp $'
 ! !