--- a/Character.st	Wed Sep 13 11:38:06 2017 +0200
+++ b/Character.st	Thu Sep 14 12:35:46 2017 +0200
@@ -1937,10 +1937,10 @@
     asciivalue <= 16r7FF ifTrue:[^ 2].
     asciivalue <= 16rFFFF ifTrue:[^ 3].
     asciivalue <= 16r1FFFFF ifTrue:[^ 4].
-    asciivalue <= 16r1FFFFF ifTrue:[^ 5].
-    asciivalue <= 16r3FFFFFF ifTrue:[^ 6].
-
-    self error:'character cannot represented as utf8 (too large)'
+    asciivalue <= 16r3FFFFFF ifTrue:[^ 5].
+    asciivalue <= 16r3FFFFFFF ifTrue:[^ 6].
+
+    self error:'character cannot represented as utf8 (too large, only 31bit supported)'
 
     "Created: / 07-02-2017 / 14:35:56 / stefan"
 ! !