--- a/CharacterEncoder.st	Tue Nov 25 17:18:49 2014 +0100
+++ b/CharacterEncoder.st	Tue Nov 25 19:14:55 2014 +0100
@@ -1399,6 +1399,17 @@
     "Created: / 15-06-2005 / 15:11:04 / janfrog"
 !
 
+isEncoderFor:encoding
+    "does this encode to encoding?"
+
+    |encodingNameSymbol|
+
+    encodingNameSymbol := encoding asLowercase.
+    encodingNameSymbol = #'iso10646-1' ifTrue:[ encodingNameSymbol := #unicode].
+
+    ^ encodingNameSymbol = self nameOfEncoding
+!
+
 isNullEncoder
     ^ false
 !
@@ -1685,11 +1696,11 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.128 2014-06-25 07:47:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.129 2014-11-25 18:14:55 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.128 2014-06-25 07:47:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.129 2014-11-25 18:14:55 stefan Exp $'
 ! !