--- a/RegressionTests__IntegerTest.st	Wed Jun 02 12:48:57 1999 +0200
+++ b/RegressionTests__IntegerTest.st	Wed Jun 02 15:15:51 1999 +0200
@@ -109,9 +109,9 @@
     t := minVal - 1.
     self test:[t + 1 == minVal].
 
+    self testLargeAddition.
     self testLargeMultiplication.
     self testLargeDivision.
-    self testLargeAddition.
 
     "
      self test1
@@ -126,6 +126,8 @@
      and via constructed performs. The reason is to test both inlined
      JIT-compiler code AND the regular methods code."
 
+    |s|
+
     "Large + Large addition"
     self testReading1.
 
@@ -300,12 +302,16 @@
     self test:[(Integer readFrom:'FFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFF'].
     self test:[(Integer readFrom:'FFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFF'].
     self test:[(Integer readFrom:'FFFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFFF'].
+    self test:[(Integer readFrom:'FFFFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFFFF'].
+    self test:[(Integer readFrom:'FFFFFFFFFFFFFF' radix:16) hexPrintString = 'FFFFFFFFFFFFFF'].
 
     self test:[(Integer readFrom:'10000000' radix:16) hexPrintString = '10000000'].
     self test:[(Integer readFrom:'100000000' radix:16) hexPrintString = '100000000'].
     self test:[(Integer readFrom:'1000000000' radix:16) hexPrintString = '1000000000'].
     self test:[(Integer readFrom:'10000000000' radix:16) hexPrintString = '10000000000'].
     self test:[(Integer readFrom:'100000000000' radix:16) hexPrintString = '100000000000'].
+    self test:[(Integer readFrom:'1000000000000' radix:16) hexPrintString = '1000000000000'].
+    self test:[(Integer readFrom:'10000000000000' radix:16) hexPrintString = '10000000000000'].
 
     t := Integer readFrom:'FFFFFFFF' radix:16.
     self test:[(t + 1) hexPrintString = '100000000'].