diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,6 +4,10 @@
 The format is based on [Keep a Changelog](http://keepachangelog.com/en/1.0.0/)
 and this project adheres to [Semantic Versioning](http://semver.org/spec/v2.0.0.html).
 
+## 0.17.3
+### Fixed
+- Add randomised timeouts to avoid disconnecting all peers.
+
 ## 0.17.2
 ### Fixed
 - Do not start chain actor until database initialized.
diff --git a/haskoin-node.cabal b/haskoin-node.cabal
--- a/haskoin-node.cabal
+++ b/haskoin-node.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 81168793adab0efc998c70424dce58b90635e1b7cf40497e31cf69ceee769b6f
+-- hash: 9c872ffbfe6ba1782d84d36820b3add05b620ce2377260543faac853126e6584
 
 name:           haskoin-node
-version:        0.17.2
+version:        0.17.9
 synopsis:       P2P library for Bitcoin and Bitcoin Cash
 description:    Please see the README on GitHub at <https://github.com/haskoin/haskoin-node#readme>
 category:       Bitcoin, Finance, Network
diff --git a/src/Haskoin/Node/Manager.hs b/src/Haskoin/Node/Manager.hs
--- a/src/Haskoin/Node/Manager.hs
+++ b/src/Haskoin/Node/Manager.hs
@@ -47,7 +47,8 @@
 import qualified Data.Set                  as Set
 import           Data.String.Conversions   (cs)
 import           Data.Time.Clock           (NominalDiffTime, UTCTime,
-                                            diffUTCTime, getCurrentTime)
+                                            addUTCTime, diffUTCTime,
+                                            getCurrentTime)
 import           Data.Time.Clock.POSIX     (utcTimeToPOSIXSeconds)
 import           Data.Word                 (Word32, Word64)
 import           Haskoin                   (BlockHeight, Message (..),
@@ -57,16 +58,16 @@
                                             hostToSockAddr, nodeNetwork,
                                             sockToHostAddress)
 import           Haskoin.Node.Peer
-import           Network.Socket            (AddrInfo (..), AddrInfoFlag (..),
-                                            Family (..), SockAddr (..),
-                                            SocketType (..), defaultHints,
-                                            getAddrInfo)
 import           NQE                       (Child, Inbox, Mailbox, Publisher,
                                             Strategy (..), Supervisor, addChild,
                                             inboxToMailbox, newInbox,
                                             newMailbox, publish, receive,
                                             receiveMatch, send, sendSTM,
                                             withSupervisor)
+import           Network.Socket            (AddrInfo (..), AddrInfoFlag (..),
+                                            Family (..), SockAddr (..),
+                                            SocketType (..), defaultHints,
+                                            getAddrInfo)
 import           System.Random             (randomIO, randomRIO)
 import           UnliftIO                  (Async, MonadIO, MonadUnliftIO, STM,
                                             SomeException, TVar, atomically,
@@ -136,6 +137,7 @@
         , onlinePeerPings       :: ![NominalDiffTime]
         , onlinePeerConnectTime :: !UTCTime
         , onlinePeerTickled     :: !UTCTime
+        , onlinePeerDisconnect  :: !UTCTime
         }
 
 instance Eq OnlinePeer where
@@ -183,7 +185,7 @@
     $(logDebugS) "PeerManager" "Awaiting best block"
     putBestBlock <=< receiveMatch inb $ \case
         ManagerBest b -> Just b
-        _ -> Nothing
+        _             -> Nothing
     $(logDebugS) "PeerManager" "Starting peer manager actor"
     forever loop
   where
@@ -330,24 +332,20 @@
     getBusy p >>= \case
         True -> return ()
         False -> do
-            PeerManagerConfig
-                { peerManagerMaxLife = max_age
-                , peerManagerTimeout = to
-                } <- asks myConfig
+            to <- asks (peerManagerTimeout . myConfig)
             b <- asks onlinePeers
-            now <- liftIO getCurrentTime
             atomically (findPeer b p) >>= \case
                 Nothing -> return ()
                 Just o -> do
-                    check_conn max_age now o
+                    now <- liftIO getCurrentTime
+                    check_conn now o
                     when (check_tickle now to o) (check_ping o)
   where
     check_tickle now to o =
         now `diffUTCTime` onlinePeerTickled o > to
-    check_conn max_age now o = do
-        let t = onlinePeerConnectTime o
-        when (now `diffUTCTime` t > max_age) $
-            killPeer PeerTooOld p
+    check_conn now o =
+        when (onlinePeerDisconnect o `diffUTCTime` now > 0) $
+        killPeer PeerTooOld p
     check_ping o =
         case onlinePeerPing o of
             Nothing ->
@@ -484,7 +482,11 @@
                 sup `addChild` io (launch pc busy inbox p)
             MVersion ver `sendMessage` p
             b <- asks onlinePeers
-            _ <- atomically $ newOnlinePeer b sa nonce p a now
+            max_life <- asks (peerManagerMaxLife . myConfig)
+            rand <- liftIO $ toRational <$> randomRIO (0.75 :: Double, 1.00)
+            let life = max_life * fromRational rand
+            let dc = life `addUTCTime` now
+            _ <- atomically $ newOnlinePeer b sa nonce p a now dc
             return ()
   where
     srv net
@@ -504,8 +506,10 @@
     -> m a
 withPeerLoop _ p mgr =
     withAsync . forever $ do
-        let time_out = floor $ peerManagerTimeout $ myConfig mgr
-        threadDelay (time_out * 1000000)
+        let x = peerManagerTimeout (myConfig mgr)
+            y = floor (x * 1000000)
+        r <- liftIO $ randomRIO (y * 3 `div` 4, y)
+        threadDelay r
         managerCheck p mgr
 
 withConnectLoop :: (MonadUnliftIO m, MonadManager m)
@@ -531,7 +535,7 @@
     o <- asks onlinePeers
     atomically $
         findPeerAddress o sa >>= \case
-            Just _ -> return ()
+            Just _  -> return ()
             Nothing -> modifyTVar b $ Set.insert sa
 
 networkSeeds :: Network -> [HostPort]
@@ -588,8 +592,9 @@
     -> Peer
     -> Async ()
     -> UTCTime
+    -> UTCTime
     -> STM OnlinePeer
-newOnlinePeer box addr nonce p peer_async connect_time = do
+newOnlinePeer box addr nonce p peer_async connect_time dc = do
     let op = OnlinePeer
              { onlinePeerAddress = addr
              , onlinePeerVerAck = False
@@ -602,6 +607,7 @@
              , onlinePeerPing = Nothing
              , onlinePeerConnectTime = connect_time
              , onlinePeerTickled = connect_time
+             , onlinePeerDisconnect = dc
              }
     insertPeer box op
     return op
@@ -622,7 +628,7 @@
 modifyPeer b p f =
     findPeer b p >>= \case
         Nothing -> return ()
-        Just o -> insertPeer b $ f o
+        Just o  -> insertPeer b $ f o
 
 removePeer :: TVar [OnlinePeer] -> Peer -> STM ()
 removePeer b p =