--- a/CharacterEncoder.st	Tue Mar 09 01:09:06 2004 +0100
+++ b/CharacterEncoder.st	Tue Mar 09 01:10:40 2004 +0100
@@ -220,9 +220,9 @@
 
         unicodeEncoderClasses := EncoderClassesByName at:#unicode.
         unicodeEncoderClasses notNil ifTrue:[
-            unicodeEncoderClasses keysandvaluesdo:[:eachencodingalias :eachencoderclass |
-                (name matches:eachencodingalias) iftrue:[
-                    ^ eachencoderclass new.
+            unicodeEncoderClasses keysAndValuesDo:[:eachEncodingAlias :eachEncoderClass |
+                (name matches:eachEncodingAlias) ifTrue:[
+                    ^ eachEncoderClass new.
                 ].
             ].
         ].
@@ -1195,7 +1195,7 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.58 2004-03-09 00:09:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.59 2004-03-09 00:10:40 cg Exp $'
 ! !
 
 CharacterEncoder initialize!