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.19
+### Changed
+- Better log messages.
+
 ## 0.9.18
 ### Added
 - More aggressive peer discovery.
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: c482469edd83b9fc0df9149423d5cd86941fd9fad71987399c485a1da222deb6
+-- hash: 917e10b5d9a35cb85510666d9e1af2a97ae9b7390c2456c2cb141f7fdda4c10d
 
 name:           haskoin-node
-version:        0.9.18
+version:        0.9.19
 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
@@ -89,12 +89,12 @@
     db = chainConfDB cfg
     ch = inboxToMailbox inbox
     run = do
-        $(logDebugS) "Chain" "Initializing..."
+        $(logDebugS) "Chain" "Initializing"
         initChainDB net
         getBestBlockHeader >>= chainEvent . ChainBestBlock
         $(logInfoS) "Chain" "Initialization complete"
         forever $ do
-          $(logDebugS) "Chain" "Awaiting message..."
+          $(logDebugS) "Chain" "Awaiting message"
           receive inbox >>= chainMessage
 
 chainEvent :: MonadChain m => ChainEvent -> m ()
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
@@ -111,14 +111,14 @@
   where
     mgr = inboxToMailbox inbox
     go = do
-        $(logDebugS) "Manager" "Initializing..."
+        $(logDebugS) "Manager" "Initializing"
         putBestBlock <=< receiveMatch inbox $ \case
             ManagerBestBlock b -> Just b
             _ -> Nothing
         $(logDebugS) "Manager" "Initialization complete"
         withConnectLoop mgr $
             forever $ do
-                $(logDebugS) "Manager" "Awaiting message..."
+                $(logDebugS) "Manager" "Awaiting message"
                 m <- receive inbox
                 managerMessage m
     f (a, mex) = ManagerPeerDied a mex `sendSTM` mgr
@@ -445,8 +445,8 @@
         forever $ do
             threadDelay =<<
                 liftIO (randomRIO (30 * 1000 * 1000, 90 * 1000 * 1000))
-            $(logDebugS) "ManagerPeerLoop" $
-                "Ping manager about peer: " <> cs (show sa)
+            $(logDebugS) "Manager" $
+                "Ping manager for peer housekeeping: " <> cs (show sa)
             ManagerCheckPeer p `send` mgr
 
 withConnectLoop :: (MonadLogger m, MonadUnliftIO m) => Manager -> m a -> m a
@@ -454,11 +454,10 @@
   where
     go =
         forever $ do
-            $(logDebugS)
-                "ManagerConnectLoop"
-                "Ping manager for housekeeping"
+            threadDelay =<<
+                liftIO (randomRIO (2 * 1000 * 1000, 10 * 1000 * 1000))
+            $(logDebugS) "Manager" "Ping manager for general housekeeping"
             ManagerConnect `send` mgr
-            threadDelay =<< liftIO (randomRIO (2 * 1000 * 1000, 10 * 1000 * 1000))
 
 -- | Add a peer.
 newPeer :: (MonadIO m, MonadManager m) => SockAddr -> m ()
diff --git a/src/Network/Haskoin/Node/Peer.hs b/src/Network/Haskoin/Node/Peer.hs
--- a/src/Network/Haskoin/Node/Peer.hs
+++ b/src/Network/Haskoin/Node/Peer.hs
@@ -55,7 +55,7 @@
   where
     a = peerConfAddress pc
     go = forever $ do
-      $(logDebugS) s "Awaiting message..."
+      $(logDebugS) s "Awaiting message"
       receive inbox >>= dispatchMessage pc
     net = peerConfNetwork pc
     s = peerString (peerConfAddress pc)