--- a/TextCollector.st	Wed Feb 15 22:05:18 2017 +0100
+++ b/TextCollector.st	Tue Feb 21 10:29:46 2017 +0100
@@ -449,10 +449,10 @@
      with the semaphore locked - in this case, we had a deadlock"
 
     flushPending := inFlush := false.
-    access := RecursionLock new. "/ Semaphore forMutualExclusion.
+    access := RecursionLock new name:'TextCollector access lock'.
     super reinitialize.
 
-    "Modified: / 5.3.1998 / 10:09:14 / stefan"
+    "Modified: / 20-02-2017 / 21:29:13 / stefan"
 !
 
 release