--- a/RegressionTests__IntegerTest.st	Mon Dec 02 17:37:21 2013 +0100
+++ b/RegressionTests__IntegerTest.st	Mon Dec 02 18:32:41 2013 +0100
@@ -2236,7 +2236,7 @@
     self assert:((t1 * t1) printString = '10000').
     self assert:((t1 perform:'*' asSymbol with:t1) printString = '10000').
 
-    t1 := 1000.
+    t1 := 1000.                                              
     self assert:(t1 * t1 == 1000000).
     self assert:((t1 perform:'*' asSymbol with:t1) == 1000000).
     self assert:((t1 * t1) printString = '1000000').
@@ -2456,6 +2456,11 @@
 testLargeMultiplicationHelpers1
     |t1 t2 r|
 
+    t1 := LargeInteger digitBytes:#[ 16r00 16rE1 16rF5 16r05 ].
+    t2 := LargeInteger digitBytes:#[ 16r00 16r00 16r40 16rB2 16rBA 16rC9 16rE0 16r19 16r1E 16r02].
+    r := t1 absMul:t2.
+    self assert:(r hexPrintString = 'FFFFFFFEFFFFFFFF00000001').
+
     t1 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF 16rFF].
     t2 := LargeInteger digitBytes:#[ 16rFF 16rFF 16rFF 16rFF 0 0 0 0].
     r := t1 absMul:t2.