--- a/RecursionLock.st	Mon Oct 25 17:10:55 1999 +0200
+++ b/RecursionLock.st	Mon Oct 25 17:28:14 1999 +0200
@@ -115,7 +115,7 @@
 !
 
 name:aString
-    ^ sema name:aString
+    sema name:aString
 
     "Created: 28.6.1997 / 16:19:47 / cg"
 ! !
@@ -130,6 +130,14 @@
 
 !RecursionLock methodsFor:'queries'!
 
+numberOfWaitingProcesses
+    "return the number of waiting processes"
+
+    ^ sema numberOfWaitingProcesses
+
+    "Created: 18.4.1996 / 17:18:08 / cg"
+!
+
 wouldBlock
     "return true, if the receiver would block the activeProcess
      if a wait was performed. False otherwise."
@@ -192,5 +200,5 @@
 !RecursionLock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.21 1998-07-21 15:46:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.22 1999-10-25 15:28:14 stefan Exp $'
 ! !