--- a/RegressionTests__IntegerTest.st	Sat Nov 05 22:22:48 2016 +0000
+++ b/RegressionTests__IntegerTest.st	Wed Nov 09 15:43:15 2016 +0000
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -4712,23 +4710,26 @@
 
     "/ ---------------------
 
-    n1 := 16rffffffff.
-    n2 := n1 negated.
-    n3 := n2 negated.
-
-    self assert:(n1 class == SmallInteger).
-    self assert:(n2 class == SmallInteger).
-    self assert:(n3 == n1).
-
-    self assert:(n1 = 16rfFFFFFFF).
-    self assert:(n2 = -16rfFFFFFFF).
-    self assert:(n1 == 16rfFFFFFFF).
-    self assert:(n2 == -16rfFFFFFFF).
-    self assert:(n1 printString = '4294967295').
-    self assert:(n2 printString = '-4294967295').
+    SmallInteger maxBytes == 8 ifTrue:[
+        n1 := 16rffffffff.
+        n2 := n1 negated.
+        n3 := n2 negated.
+
+        self assert:(n1 class == SmallInteger).
+        self assert:(n2 class == SmallInteger).
+        self assert:(n3 == n1).
+
+        self assert:(n1 = 16rfFFFFFFF).
+        self assert:(n2 = -16rfFFFFFFF).
+        self assert:(n1 == 16rfFFFFFFF).
+        self assert:(n2 == -16rfFFFFFFF).
+        self assert:(n1 printString = '4294967295').
+        self assert:(n2 printString = '-4294967295').
+    ].
 
     "/ ---------------------
 
+
     n1 := SmallInteger maxVal.
     n2 := n1 negated.
     n3 := n2 negated.
@@ -4756,6 +4757,8 @@
     "
      self basicNew testSmallIntegerNegation
     "
+
+    "Modified: / 09-11-2016 / 15:38:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !IntegerTest methodsFor:'tests-class protocol'!
@@ -5078,5 +5081,10 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !