--- a/RecursionLock.st	Fri Jan 24 23:11:36 1997 +0100
+++ b/RecursionLock.st	Fri Jan 24 23:19:40 1997 +0100
@@ -94,7 +94,7 @@
 !RecursionLock methodsFor:'private initialization'!
 
 initialize
-    sema := Semaphore forMutualExclusion
+    sema := Semaphore forMutualExclusion name:'rLock'
 ! !
 
 !RecursionLock methodsFor:'queries'!
@@ -158,5 +158,5 @@
 !RecursionLock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.15 1997-01-10 20:47:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.16 1997-01-24 22:19:40 cg Exp $'
 ! !