--- a/CharacterEncoder.st	Tue Mar 09 00:05:08 2004 +0100
+++ b/CharacterEncoder.st	Tue Mar 09 00:18:22 2004 +0100
@@ -310,10 +310,9 @@
             encoderClasses isNil ifTrue:[
                 EncoderClassesByName at:oldEncoding put:(encoders := Dictionary new).
             ].
-            cls := encoders at:name ifAbsent:nil.
+            cls := encoderClasses at:newEncoding ifAbsent:nil.
             cls notNil ifTrue:[
                 encoder := cls new.
-                encoders at:name put:encoder.
             ].
         ].
     ].
@@ -1160,7 +1159,7 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.52 2004-03-08 23:04:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.53 2004-03-08 23:18:18 cg Exp $'
 ! !
 
 CharacterEncoder initialize!