--- a/Semaphore.st	Thu Jan 23 02:24:07 1997 +0100
+++ b/Semaphore.st	Thu Jan 23 03:24:48 1997 +0100
@@ -154,6 +154,15 @@
 
 !Semaphore methodsFor:'queries '!
 
+count
+    "return the number of 'already-counted' trigger events.
+     Thats the number of waits which will succeed without blocking"
+
+    ^ count
+
+    "Created: 23.1.1997 / 02:55:58 / cg"
+!
+
 numberOfWaitingProcesses
     "return the number of processes waiting on the receiver"
 
@@ -489,5 +498,5 @@
 !Semaphore class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.40 1997-01-23 01:24:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.41 1997-01-23 02:24:48 cg Exp $'
 ! !