diff --git a/retry.cabal b/retry.cabal
--- a/retry.cabal
+++ b/retry.cabal
@@ -14,7 +14,7 @@
         case we should hang back for a bit and retry the query instead
         of simply raising an exception.
 
-version:             0.5
+version:             0.5.1
 synopsis:            Retry combinators for monadic actions that may fail
 license:             BSD3
 license-file:        LICENSE
diff --git a/src/Control/Retry.hs b/src/Control/Retry.hs
--- a/src/Control/Retry.hs
+++ b/src/Control/Retry.hs
@@ -40,6 +40,7 @@
     , exponentialBackoff
     , fibonacciBackoff
     , limitRetries
+    , capDelay
 
     -- * Re-export from Data.Monoid
 
@@ -142,6 +143,17 @@
     where
       fib 0 (a, _) = a
       fib !m (!a, !b) = fib (m-1) (b, a + b)
+
+
+-------------------------------------------------------------------------------
+-- | Set an upperbound for any delays that may be directed by the
+-- given policy.
+capDelay
+    :: Int
+    -- ^ A maximum delay in microseconds
+    -> RetryPolicy
+    -> RetryPolicy
+capDelay limit p = RetryPolicy $ \ n -> min limit `fmap` (getRetryPolicy p) n
 
 
 -------------------------------------------------------------------------------