--- a/CharacterEncoder.st	Fri Mar 12 20:09:28 2004 +0100
+++ b/CharacterEncoder.st	Fri Mar 12 21:07:23 2004 +0100
@@ -546,6 +546,8 @@
         (MS_Turkish         unicode     ( 'ms-turkish' 'ms-cp1254' 'microsoft-cp1254' 'cp1254' 'microsoft-turkish' 'windows-1254'  ))
 
         (NEXT               unicode     ( 'next' 'nextstep'  ))
+
+        (SGML               unicode     ( 'sgml' ))
     ) triplesDo:[:className :decodesTo :encodesTo |
         |dict|
 
@@ -870,6 +872,7 @@
          ('gb'          'GB - mainland china'                   )
          ('big5'        'BIG5 - taiwan'                         )
 "/         ('ksc'         'korean'                        )
+         ('sgml'        'SGML (XML/HTML) character escapes'     )
        )
 !
 
@@ -1250,7 +1253,7 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.74 2004-03-12 16:29:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.75 2004-03-12 20:07:23 cg Exp $'
 ! !
 
 CharacterEncoder initialize!