--- a/CharacterEncoder.st	Mon Sep 20 17:40:27 2010 +0200
+++ b/CharacterEncoder.st	Mon Sep 20 18:00:45 2010 +0200
@@ -189,6 +189,27 @@
         CharacterEncoder::KOI8_U flushCode; generateSubclassCode.
 
         CharacterEncoder::JIS0208 flushCode; generateCode.
+
+    Please check if your encoder tables are complete; for example, with:
+        0 to:255 do:[:ebc |
+            |asc ebc2|
+
+            asc := CharacterEncoderImplementations::EBCDIC new decode:ebc.
+            asc notNil ifTrue:[
+               ebc2 := CharacterEncoderImplementations::EBCDIC new encode:asc.
+               self assert:(ebc2 = ebc)
+            ].
+        ].
+
+        0 to:255 do:[:asc |
+            |ebc asc2|
+
+            ebc := CharacterEncoderImplementations::EBCDIC new encode:asc.
+            ebc notNil ifTrue:[
+               asc2 := CharacterEncoderImplementations::EBCDIC new decode:ebc.
+               self assert:(asc2 = asc)
+            ].
+        ].
 "
 ! !
 
@@ -1601,11 +1622,11 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.107 2010-09-20 15:35:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.108 2010-09-20 16:00:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.107 2010-09-20 15:35:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.108 2010-09-20 16:00:45 cg Exp $'
 ! !
 
 CharacterEncoder initialize!