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.9.13
+### Changed
+- Really store peers in db.
+
 ## 0.9.12
 ### Changed
 - Demote some logging to debug level.
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: 171d50e9065fd585ba3486949cdb38c484251bcabdf393b94681c8681754e440
+-- hash: f8a2a4b86df35455f4862711720d20e083528be4a92e36c46a19ebb8d5501952
 
 name:           haskoin-node
-version:        0.9.12
+version:        0.9.13
 synopsis:       Haskoin Node P2P library for Bitcoin and Bitcoin Cash
 description:    Bitcoin and Bitcoin Cash peer-to-peer protocol library featuring headers-first synchronisation.
 category:       Bitcoin, Finance, Network
diff --git a/src/Network/Haskoin/Node/Manager.hs b/src/Network/Haskoin/Node/Manager.hs
--- a/src/Network/Haskoin/Node/Manager.hs
+++ b/src/Network/Haskoin/Node/Manager.hs
@@ -87,7 +87,7 @@
                     , knownPeers = kp
                     , onlinePeers = ob
                     }
-        (go `finally` storePeersInDB) `runReaderT` rd
+        go `runReaderT` rd
   where
     mgr = inboxToMailbox inbox
     discover = mgrConfDiscover cfg
@@ -236,6 +236,7 @@
         True -> do
             let sas = map (naAddress . snd) nas
             forM_ sas newPeer
+            storePeersInDB
         False ->
             $(logDebugS)
                 "Manager"