--- a/RegressionTests__IntegerTest.st	Thu Sep 01 20:28:55 2016 +0200
+++ b/RegressionTests__IntegerTest.st	Thu Sep 01 21:03:05 2016 +0200
@@ -4076,18 +4076,18 @@
     self assert:((Integer readFrom:'400000000000000' radix:16) hexPrintString = '400000000000000').
     self assert:((Integer readFrom:'800000000000000' radix:16) hexPrintString = '800000000000000').
 
-    self assert:((Integer readFrom:'-FFFFFFFF' radix:16) hexPrintString = '-FFFFFFFF').
-    self assert:((Integer readFrom:'-FFFFFFFFF' radix:16) hexPrintString = '-FFFFFFFFF').
-    self assert:((Integer readFrom:'-FFFFFFFFFF' radix:16) hexPrintString = '-FFFFFFFFFF').
-    self assert:((Integer readFrom:'-FFFFFFFFFFF' radix:16) hexPrintString = '-FFFFFFFFFFF').
-    self assert:((Integer readFrom:'-FFFFFFFFFFFF' radix:16) hexPrintString = '-FFFFFFFFFFFF').
-    self assert:((Integer readFrom:'-FFFFFFFFFFFFF' radix:16) hexPrintString = '-FFFFFFFFFFFFF').
-    self assert:((Integer readFrom:'-FFFFFFFFFFFFFF' radix:16) hexPrintString = '-FFFFFFFFFFFFFF').
-    self assert:((Integer readFrom:'-FFFFFFFFFFFFFFF' radix:16) hexPrintString = '-FFFFFFFFFFFFFFF').
-    self assert:((Integer readFrom:'-3FFFFFFFFFFFFFF' radix:16) hexPrintString = '-3FFFFFFFFFFFFFF').
-    self assert:((Integer readFrom:'-7FFFFFFFFFFFFFF' radix:16) hexPrintString = '-7FFFFFFFFFFFFFF').
-    self assert:((Integer readFrom:'-400000000000000' radix:16) hexPrintString = '-400000000000000').
-    self assert:((Integer readFrom:'-800000000000000' radix:16) hexPrintString = '-800000000000000').
+    self assert:((Integer readFrom:'16r-FFFFFFFF') printString = '-4294967295').
+    self assert:((Integer readFrom:'-16rFFFFFFFFF') hexPrintString = '-FFFFFFFFF').
+    self assert:((Integer readFrom:'-16rFFFFFFFFFF') hexPrintString = '-FFFFFFFFFF').
+    self assert:((Integer readFrom:'-16rFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFF').
+    self assert:((Integer readFrom:'-16rFFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFFF').
+    self assert:((Integer readFrom:'-16rFFFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFFFF').
+    self assert:((Integer readFrom:'-16rFFFFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFFFFF').
+    self assert:((Integer readFrom:'-16rFFFFFFFFFFFFFFF') hexPrintString = '-FFFFFFFFFFFFFFF').
+    self assert:((Integer readFrom:'-16r3FFFFFFFFFFFFFF') hexPrintString = '-3FFFFFFFFFFFFFF').
+    self assert:((Integer readFrom:'-16r7FFFFFFFFFFFFFF') hexPrintString = '-7FFFFFFFFFFFFFF').
+    self assert:((Integer readFrom:'-16r400000000000000') hexPrintString = '-400000000000000').
+    self assert:((Integer readFrom:'-16r800000000000000') hexPrintString = '-800000000000000').
 
     self assert:((Integer readFrom:'10000000' radix:16) hexPrintString = '10000000').
     self assert:((Integer readFrom:'100000000' radix:16) hexPrintString = '100000000').
@@ -4685,12 +4685,12 @@
         self assert:(n1 printString = '1073741823').
         self assert:(n2 printString = '-1073741823').
     ] ifFalse:[
-        self assert:(n1 = 16r3FFFFFFFFFFFFFFF).
-        self assert:(n2 = -16r3FFFFFFFFFFFFFFFF).
-        self assert:(n1 == 16r3FFFFFFFFFFFFFFFF).
-        self assert:(n2 == -16r3FFFFFFFFFFFFFFFF).
         self assert:(n1 printString = '4611686018427387903').
         self assert:(n2 printString = '-4611686018427387903').
+        self assert:(n1 =   16r3FFFFFFFFFFFFFFF).
+        self assert:(n2 =  -16r3FFFFFFFFFFFFFFF).
+        self assert:(n1 ==  16r3FFFFFFFFFFFFFFF).
+        self assert:(n2 == -16r3FFFFFFFFFFFFFFF).
     ].
 
     "