diff --git a/src/PaymentServer/Redemption.hs b/src/PaymentServer/Redemption.hs
index 3c80d6f8a7e27dfde7c1dc47248fb74826040ddf..7676c87faf33e49257aece1dd9d3fb2c4cca8afe 100644
--- a/src/PaymentServer/Redemption.hs
+++ b/src/PaymentServer/Redemption.hs
@@ -177,7 +177,7 @@ retry op =
     -- Time to delay between each try in milliseconds.
     perRetryDelay = 500
     -- Limit on the number of retries.
-    numRetries = totalRetryDuration `div` totalRetryDuration
+    numRetries = totalRetryDuration `div` perRetryDelay
 
     policy = constantDelay (perRetryDelay * 1000) <> limitRetries numRetries
     shouldRetry status value =