--- a/Semaphore.st	Thu Nov 16 12:11:23 2000 +0100
+++ b/Semaphore.st	Thu Nov 16 12:16:59 2000 +0100
@@ -360,6 +360,12 @@
 
 !Semaphore methodsFor:'wait & signal'!
 
+clear
+    "clear the semaphores count"
+
+    count := 0
+!
+
 critical:aBlock
     "evaluate aBlock as a critical region; the receiver must be
      created using Semaphore>>forMutualExclusion"
@@ -720,5 +726,5 @@
 !Semaphore class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.58 2000-08-22 13:49:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.59 2000-11-16 11:16:59 cg Exp $'
 ! !