--- a/UninterpretedBytes.st	Tue Oct 11 14:39:09 2016 +0200
+++ b/UninterpretedBytes.st	Tue Oct 11 16:33:26 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
@@ -745,7 +743,7 @@
 longLongAt:index
     "return the 8-bytes starting at index as a signed Integer.
      The index is a smalltalk index (i.e. 1-based).
-     The value is retrieved in the machineÄs natural byte order.
+     The value is retrieved in the machineÄs natural byte order.
      This may be worth a primitive."
 
     ^ self signedInt64At:index MSB:IsBigEndian
@@ -2491,7 +2489,9 @@
     |bIdx  "{ Class: SmallInteger }"
      delta "{ Class: SmallInteger }"|
 
-    ((anInteger < 0) or:[anInteger > 16rFFFFFFFFFFFFFFFF]) ifTrue:[
+    ((anInteger < 0) 
+     or:[anInteger class ~~ SmallInteger 
+         and:[anInteger > 16rFFFFFFFFFFFFFFFF]]) ifTrue:[
         ^ self elementBoundsError:anInteger
     ].