--- a/CharacterEncoder.st	Tue Jan 16 10:26:54 2018 +0100
+++ b/CharacterEncoder.st	Tue Jan 16 15:09:53 2018 +0100
@@ -1692,6 +1692,16 @@
 
 !CharacterEncoder::NullEncoder methodsFor:'queries'!
 
+characterSize:codePoint
+    ^ (Character value:codePoint) bytesPerCharacter
+
+    "
+     NullEncoder basicNew characterSize:$a codePoint 
+     NullEncoder basicNew characterSize:16r3fe       
+     NullEncoder basicNew characterSize:16r3ffe      
+    "
+!
+
 isNullEncoder
     ^ true
 ! !