--- a/Character.st	Fri Jul 14 13:42:00 2017 +0200
+++ b/Character.st	Fri Jul 14 15:23:27 2017 +0200
@@ -317,7 +317,6 @@
     ^ self codePoint:anInteger
 ! !
 
-
 !Character class methodsFor:'accessing untypeable characters'!
 
 controlCharacter:char
@@ -376,7 +375,6 @@
     ^ self codePoint:41
 ! !
 
-
 !Character class methodsFor:'constants'!
 
 backspace
@@ -395,15 +393,17 @@
     "the unicode BOM character as a singleton"
 
     BOMCharacter isNil ifTrue:[
-        BOMCharacter := 16rFEFF asCharacter
+        BOMCharacter := super basicNew setCodePoint:16rFEFF
     ].
     ^ BOMCharacter
 
     "
      self byteOrderMark
+     self codePoint:16rFEFF
     "
 
     "Created: / 13-07-2017 / 12:04:34 / cg"
+    "Modified (comment): / 14-07-2017 / 15:22:14 / cg"
 !
 
 cr