--- a/Character.st	Sun May 08 02:41:04 2016 +0200
+++ b/Character.st	Sun May 08 03:23:35 2016 +0200
@@ -1765,6 +1765,14 @@
     ^ 32
 !
 
+bytesPerCharacter
+    "return the number of bytes I require for storage"
+
+    asciivalue <= 16rFF ifTrue:[^ 1].
+    asciivalue <= 16rFFFF ifTrue:[^ 2].
+    ^ 4
+!
+
 characterSize
     "return the number of bits I require for storage.
      Protocol compatibility with CharacterArray."