--- a/Semaphore.st	Fri Aug 23 16:39:09 2013 +0200
+++ b/Semaphore.st	Fri Aug 23 17:35:42 2013 +0200
@@ -836,7 +836,7 @@
                 wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
             ].
             self removeWaitingProcess:activeProcess.
-        ] doUntil:[count > 0].
+        ] doWhile:[count <= 0].
     ].
 
     count := count - 1.
@@ -976,7 +976,7 @@
                 wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
                 ^ nil
             ].
-        ] doUntil:[count > 0].
+        ] doWhile:[count <= 0].
 
         timeoutBlock notNil ifTrue:[
             Processor removeTimedBlock:timeoutBlock.
@@ -1000,10 +1000,10 @@
 !Semaphore class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.94 2013-08-16 17:51:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.95 2013-08-23 15:35:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.94 2013-08-16 17:51:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.95 2013-08-23 15:35:42 cg Exp $'
 ! !