--- a/Character.st	Sat Jul 18 01:22:58 2015 +0200
+++ b/Character.st	Sat Jul 18 01:24:04 2015 +0200
@@ -609,6 +609,7 @@
     "
 ! !
 
+
 !Character methodsFor:'Compatibility-Dolphin'!
 
 isAlphaNumeric
@@ -656,6 +657,7 @@
       or:[ (asciivalue == 247 ) ]]]]]
 ! !
 
+
 !Character methodsFor:'accessing'!
 
 codePoint
@@ -1736,10 +1738,13 @@
     ^ 32
 !
 
-bitsPerCharacterInString
+characterSize
     "return the number of bits I require for storage.
      Protocol compatibility with CharacterArray."
     
+    asciivalue <= 16r80 ifTrue:[
+        ^ 7
+    ].
     asciivalue <= 16rFF ifTrue:[
         ^ 8
     ].