--- a/Character.st	Wed Jul 12 16:13:03 2017 +0200
+++ b/Character.st	Thu Jul 13 12:05:39 2017 +0200
@@ -17,7 +17,7 @@
 
 Magnitude subclass:#Character
 	instanceVariableNames:'asciivalue'
-	classVariableNames:'CharacterTable Separators'
+	classVariableNames:'CharacterTable Separators BOMCharacter'
 	poolDictionaries:''
 	category:'Magnitude-General'
 !
@@ -313,6 +313,7 @@
     ^ self codePoint:anInteger
 ! !
 
+
 !Character class methodsFor:'accessing untypeable characters'!
 
 controlCharacter:char
@@ -371,6 +372,7 @@
     ^ self codePoint:41
 ! !
 
+
 !Character class methodsFor:'constants'!
 
 backspace
@@ -385,6 +387,17 @@
     ^ Character codePoint:7
 !
 
+byteOrderMark
+    "the unicode BOM character"
+
+    BOMCharacter isNil ifTrue:[
+        BOMCharacter := 16rFEFF asCharacter
+    ].
+    ^ BOMCharacter
+
+    "Created: / 13-07-2017 / 12:04:34 / cg"
+!
+
 cr
     "return the lineEnd character
      - actually (in unix) this is a newline character"