diff --git a/mangopay.cabal b/mangopay.cabal
--- a/mangopay.cabal
+++ b/mangopay.cabal
@@ -1,5 +1,5 @@
 name:           mangopay
-version:        1.10.1
+version:        1.10.2
 cabal-version:  >= 1.8
 build-type:     Simple
 author:         JP Moresmau <jpmoresmau@gmail.com>
diff --git a/src/Web/MangoPay/TestUtils.hs b/src/Web/MangoPay/TestUtils.hs
--- a/src/Web/MangoPay/TestUtils.hs
+++ b/src/Web/MangoPay/TestUtils.hs
@@ -16,6 +16,10 @@
 
     -- ** Tear down
   , ensureNoEvents
+
+    -- ** Bug workarounds
+  , withWorkaroundManager
+  , newWorkaroundManager
   ) where
 
 import Blaze.ByteString.Builder (copyByteString)
@@ -285,7 +289,19 @@
 -- eventually be changed to be the same as 'H.withManager' as
 -- soon as this bug is fixed.
 withWorkaroundManager :: (MonadIO m, MonadBaseControl IO m) => (H.Manager -> ResourceT m a) -> m a
-withWorkaroundManager act = liftIO ioActions >>= flip H.withManagerSettings act . mkSettings
+withWorkaroundManager act = workaroundSettings >>= flip H.withManagerSettings act
+
+
+-- | Create a new 'H.Manager' with the same workarounds as
+-- 'withWorkaroundManager', but does not automatically release
+-- it so that you have full control of its life cycle.
+newWorkaroundManager :: MonadIO m => m H.Manager
+newWorkaroundManager = liftIO . H.newManager =<< workaroundSettings
+
+
+-- | Settings needed for 'withWorkaroundManager'.
+workaroundSettings :: MonadIO m => m H.ManagerSettings
+workaroundSettings = mkSettings `liftM` liftIO ioActions
   where
     ioActions =
       X509.getSystemCertificateStore