--- a/CharacterEncoder.st	Wed Nov 04 01:47:35 2009 +0100
+++ b/CharacterEncoder.st	Wed Nov 04 01:47:50 2009 +0100
@@ -1343,11 +1343,11 @@
 !
 
 readNextCharacterFrom:aStream
-    "raise an error: must be redefined in concrete subclass(es)"
+    ^ (self encode:(self readNextInputCharacterFrom:aStream)) asCharacter
+!
 
-    ^ self subclassResponsibility
-
-    "Created: / 14-06-2005 / 17:02:28 / janfrog"
+readNextInputCharacterFrom:aStream
+    self subclassResponsibility
 ! !
 
 !CharacterEncoder::CompoundEncoder class methodsFor:'documentation'!
@@ -1458,6 +1458,18 @@
 	nextPutAll:(decoder nameOfDecodedCode)
 ! !
 
+!CharacterEncoder::InverseEncoder methodsFor:'queries'!
+
+characterSize:charOrcodePoint
+    ^ decoder characterSize:charOrcodePoint
+! !
+
+!CharacterEncoder::InverseEncoder methodsFor:'stream support'!
+
+readNextInputCharacterFrom:aStream
+    ^ decoder readNextInputCharacterFrom:aStream
+! !
+
 !CharacterEncoder::NullEncoder class methodsFor:'documentation'!
 
 documentation
@@ -1573,7 +1585,11 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.104 2009-09-18 15:35:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.105 2009-11-04 00:47:50 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.105 2009-11-04 00:47:50 cg Exp $'
 ! !
 
 CharacterEncoder initialize!