diff --git a/UBigInt.pas b/UBigInt.pas
index f943fd2..6ee26d8 100644
--- a/UBigInt.pas
+++ b/UBigInt.pas
@@ -201,7 +201,7 @@ begin
   // Applies the carry-over into a new digit that was not anticipated in the initialization at the top (carry over
   // multiple digits).
   if carry > 0 then
-    Insert(1, Result.FDigits, 0);
+    Insert(1, Result.FDigits, len);
   Result.FIsNegative := AReturnNegative;
 end;