diff -r fca649220051 -r cedaa7d102d6 RegressionTests__IntegerTest.st
--- a/RegressionTests__IntegerTest.st	Sun Jun 06 16:38:15 1999 +0200
+++ b/RegressionTests__IntegerTest.st	Sun Jun 06 20:53:39 1999 +0200
@@ -448,7 +448,37 @@
     self test:[(20 factorial + 1) printString = '2432902008176640001'].
     self test:[(20 factorial + 1000) printString = '2432902008176641000'].
 
-    "Large - Large addition"
+    "Large + Small addition"
+
+    n1 := 16r3FFFFFFF. n2 := 1.
+    self test:[(n1 + n2 ) hexPrintString = '40000000'].
+    self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '40000000'].
+    n1 := 16r3FFFFFFFF. n2 := 1.
+    self test:[(n1 + n2 ) hexPrintString = '400000000'].
+    self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '400000000'].
+    n1 := 16r3FFFFFFFFF. n2 := 1.
+    self test:[(n1 + n2 ) hexPrintString = '4000000000'].
+    self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '4000000000'].
+    n1 := 16r3FFFFFFFFFF. n2 := 1.
+    self test:[(n1 + n2 ) hexPrintString = '40000000000'].
+    self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '40000000000'].
+    n1 := 16r3FFFFFFFFFFF. n2 := 1.
+    self test:[(n1 + n2 ) hexPrintString = '400000000000'].
+    self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '400000000000'].
+    n1 := 16r3FFFFFFFFFFFF. n2 := 1.
+    self test:[(n1 + n2 ) hexPrintString = '4000000000000'].
+    self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '4000000000000'].
+    n1 := 16r3FFFFFFFFFFFFF. n2 := 1.
+    self test:[(n1 + n2 ) hexPrintString = '40000000000000'].
+    self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '40000000000000'].
+    n1 := 16r3FFFFFFFFFFFFFF. n2 := 1.
+    self test:[(n1 + n2 ) hexPrintString = '400000000000000'].
+    self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '400000000000000'].
+    n1 := 16r3FFFFFFFFFFFFFFF. n2 := 1.
+    self test:[(n1 + n2 ) hexPrintString = '4000000000000000'].
+    self test:[(n1 perform:'+' asSymbol with:n2 ) hexPrintString = '4000000000000000'].
+
+    "Large + Large addition"
 
     n1 := 16r100000000. n2 := 16r7FFFFFFF.
     self test:[(n1 - n2 ) hexPrintString = '80000001'].