--- a/RecursionLock.st	Fri Dec 01 16:44:08 2000 +0100
+++ b/RecursionLock.st	Mon Dec 04 16:13:27 2000 +0100
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libbasic2' }"
+
 Object subclass:#RecursionLock
 	instanceVariableNames:'process sema'
 	classVariableNames:''
@@ -91,6 +93,12 @@
 
 !RecursionLock class methodsFor:'instance creation'!
 
+forMutualExclusion
+    "for easy exchangability with mutual-exclusion Semaphores..."
+
+    ^ self new 
+!
+
 new
     ^ self basicNew initialize
 
@@ -206,5 +214,5 @@
 !RecursionLock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.23 1999-12-14 20:09:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.24 2000-12-04 15:13:27 cg Exp $'
 ! !