diff --git a/UBigInt.pas b/UBigInt.pas
index 97a81fa..f943fd2 100644
--- a/UBigInt.pas
+++ b/UBigInt.pas
@@ -469,7 +469,7 @@ begin
       // Performs full digit shifts by copy if there are no bit shifts.
       len := Length(A.FDigits);
       SetLength(Result.FDigits, len + digitShifts);
-      Move(A.FDigits[0], Result.FDigits[digitShifts], Length(A.FDigits));
+      Move(A.FDigits[0], Result.FDigits[digitShifts], CDigitSize * len);
     end;
 
     Result.FIsNegative := A.IsNegative;