--- a/SharedCollection.st	Wed Feb 22 19:08:58 2017 +0100
+++ b/SharedCollection.st	Thu Feb 23 14:22:19 2017 +0100
@@ -119,8 +119,10 @@
 !SharedCollection methodsFor:'initialization'!
 
 initializeFor:aCollection
-    accessLock := RecursionLock new.
+    accessLock := RecursionLock new name:'SharedCollection'.
     realCollection := aCollection.
+
+    "Modified: / 23-02-2017 / 12:41:45 / stefan"
 ! !
 
 !SharedCollection methodsFor:'message forwarding'!