--- a/CharacterEncoder.st	Thu Mar 28 15:22:46 2019 +0100
+++ b/CharacterEncoder.st	Thu Mar 28 15:31:37 2019 +0100
@@ -1121,13 +1121,13 @@
 
     pos := stream position.
     stream atEnd ifTrue:[^ nil].
-    byte1 := stream peek.
+    byte1 := stream peek asInteger.
     "/ EF-BB-BF -> utf8
     byte1 == 16rEF ifTrue:[
         stream next.
-        stream peek == 16rBB ifTrue:[
+        stream peek asInteger == 16rBB ifTrue:[
             stream next.
-            stream next == 16rBF ifTrue:[
+            stream next asInteger == 16rBF ifTrue:[
                 ^ #utf8
             ]
         ].
@@ -1136,11 +1136,11 @@
     "00-00-FE-FF big endian utf32"
     byte1 == 16r00 ifTrue:[
         stream next.
-        stream peek == 16r00 ifTrue:[
+        stream peek asInteger == 16r00 ifTrue:[
             stream next.
-            stream peek == 16rFE ifTrue:[
+            stream peek asInteger == 16rFE ifTrue:[
                 stream next.
-                stream next == 16rFF ifTrue:[
+                stream next asInteger == 16rFF ifTrue:[
                     ^ #utf32be
                 ]
             ]
@@ -1151,11 +1151,11 @@
     "FF-FE little endian utf16 or utf32"
     byte1 == 16rFF ifTrue:[
         stream next.
-        stream peek == 16rFE ifTrue:[
+        stream peek asInteger == 16rFE ifTrue:[
             stream next.
-            stream peek == 0 ifTrue:[
+            stream peek asInteger == 0 ifTrue:[
                 stream next.
-                stream next == 0 ifTrue:[
+                stream next asInteger == 0 ifTrue:[
                     "FF-FE-00-00 little endian utf32"
                     ^ #utf32le.   
                 ].
@@ -1169,7 +1169,7 @@
     "FE-FF big endian utf16"
     byte1 == 16rFE ifTrue:[
         stream next.
-        stream next == 16rFF ifTrue:[
+        stream next asInteger == 16rFF ifTrue:[
             ^ #utf16be
         ].
     ].