--- a/RecursionLock.st	Wed Aug 09 11:50:52 2017 +0200
+++ b/RecursionLock.st	Wed Aug 09 11:51:02 2017 +0200
@@ -93,6 +93,12 @@
 
 !RecursionLock class methodsFor:'instance creation'!
 
+name:aString
+    ^ self basicNew setCount:1 name:aString
+
+    "Created: / 09-08-2017 / 11:47:21 / cg"
+!
+
 new
     ^ self basicNew setCount:1