--- a/CharacterEncoder.st	Fri Mar 12 21:07:23 2004 +0100
+++ b/CharacterEncoder.st	Fri Mar 12 21:08:35 2004 +0100
@@ -547,7 +547,7 @@
 
         (NEXT               unicode     ( 'next' 'nextstep'  ))
 
-        (SGML               unicode     ( 'sgml' ))
+        (ISO10646_to_SGML   unicode     ( 'sgml' ))
     ) triplesDo:[:className :decodesTo :encodesTo |
         |dict|
 
@@ -1253,7 +1253,7 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.75 2004-03-12 20:07:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.76 2004-03-12 20:08:35 cg Exp $'
 ! !
 
 CharacterEncoder initialize!