--- a/CharacterEncoder.st	Fri Feb 08 20:01:15 2013 +0100
+++ b/CharacterEncoder.st	Fri Feb 08 20:02:11 2013 +0100
@@ -548,7 +548,7 @@
 initialize
     |ud|
 
-    AccessLock := RecursionLock new.
+    AccessLock := RecursionLock new name:'CharacterEncoder'.
     NullEncoderInstance := NullEncoder new.
 
     EncodersByName := Dictionary new.
@@ -1672,11 +1672,12 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.120 2012-12-12 22:57:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.121 2013-02-08 19:02:11 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.120 2012-12-12 22:57:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.121 2013-02-08 19:02:11 stefan Exp $'
 ! !
 
+
 CharacterEncoder initialize!