--- a/RegressionTests__IntegerTest.st	Tue Jun 01 17:32:21 1999 +0200
+++ b/RegressionTests__IntegerTest.st	Wed Jun 02 12:44:36 1999 +0200
@@ -133,10 +133,16 @@
     self test:[(20 factorial + 1) printString = '2432902008176640001'].
     self test:[(20 factorial + 1000) printString = '2432902008176641000'].
 
+    "Large - Large addition"
+
+    self test:[(16r100000000 - 16r7FFFFFFF ) hexPrintString = '80000001'].
+    self test:[(16r100000000 - 16r80000000 ) hexPrintString = '80000000'].
+    self test:[(16r100000000 - 16rFFFFFFFF ) hexPrintString = '1'].
 
     "Large - small subtraction"
     self test:[(20 factorial + 20 factorial - 1) printString = '4865804016353279999'].
     self test:[(20 factorial - 10 factorial + 3628800) printString = '2432902008176640000'].
+    self test:[(20 factorial + 10 factorial - 3628800) printString = '2432902008176640000'].
 
     "
      self testLargeAddition