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.10
+### Added
+- Increase debugging information where application freezes.
+
 ## 0.9.9
 ### Added
 - Increase debugging information.
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: 0278071e411da1cacdc3c6fc2b5f0d0b228116f74a470344cb4551f878e05c8e
+-- hash: ed26c1f8581dfc0159d9f218bdcadf4dd80c69ae8298bac37fcb472554abdb3d
 
 name:           haskoin-node
-version:        0.9.9
+version:        0.9.10
 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/Chain.hs b/src/Network/Haskoin/Node/Chain.hs
--- a/src/Network/Haskoin/Node/Chain.hs
+++ b/src/Network/Haskoin/Node/Chain.hs
@@ -155,8 +155,13 @@
 
 chainMessage :: MonadChain m => ChainMessage -> m ()
 chainMessage (ChainGetBest reply) = do
-    $(logDebugS) "Chain" "Responding to request for best block"
-    getBestBlockHeader >>= atomically . reply
+    $(logDebugS) "Chain" "Responding to request for best block header"
+    getBestBlockHeader >>= \bh -> do
+        $(logDebugS) "Chain" $
+            "Best block header: " <> blockHashToHex (headerHash (nodeHeader bh)) <>
+            " at height " <>
+            cs (show (nodeHeight bh))
+        atomically $ reply bh
 chainMessage (ChainHeaders p hs) = do
     $(logDebugS) "Chain" $ "Processing " <> cs (show (length hs)) <> " headers"
     processHeaders p hs
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
@@ -103,7 +103,6 @@
             forever $ do
                 $(logDebugS) "Manager" "Awaiting message..."
                 m <- receive inbox
-                $(logDebugS) "Manager" "Processing message.."
                 managerMessage m
     f (a, mex) = ManagerPeerDied a mex `sendSTM` mgr