--- a/CharacterEncoder.st	Thu Oct 30 17:25:55 2008 +0100
+++ b/CharacterEncoder.st	Thu Oct 30 20:53:52 2008 +0100
@@ -1236,14 +1236,14 @@
 
     sender := thisContext sender.
     ((sender selector == #encode:) or:[sender selector == #decode:]) ifFalse:[
-	badCodePoint := sender methodHome argAt:1
+        badCodePoint := sender methodHome argAt:1
     ].
-    ^ (EncodingError new)
-	defaultValue:(self defaultDecoderValue);
-	parameter:badCodePoint;
-	messageText:'invalid code'; 
-	suspendedContext:sender;
-	raiseRequest
+    ^ (DecodingError new)
+        defaultValue:(self defaultDecoderValue);
+        parameter:badCodePoint;
+        messageText:'invalid code'; 
+        suspendedContext:sender;
+        raiseRequest.
 !
 
 defaultDecoderValue
@@ -1516,7 +1516,7 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.99 2008-10-21 22:21:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.100 2008-10-30 19:53:52 cg Exp $'
 ! !
 
 CharacterEncoder initialize!