diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,6 +4,11 @@
 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.13.1
+### Changed
+- Bump `haskoin-node` in `stack.yaml`.
+- Do not send empty `getdata` messages.
+
 ## 0.13.0
 ### Added
 - Primitive content negotiation for web exceptions.
diff --git a/haskoin-store.cabal b/haskoin-store.cabal
--- a/haskoin-store.cabal
+++ b/haskoin-store.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 9d0d8adb21100d7684b1be65ec7f2d523adacac3ae54fd8de862bf887a7070fd
+-- hash: b700d8634d497c251ec017815799d98a980e0be0531db74b2ebfcbb733bd9b60
 
 name:           haskoin-store
-version:        0.13.0
+version:        0.13.1
 synopsis:       Storage and index for Bitcoin and Bitcoin Cash
 description:    Store blocks, transactions, and balances for Bitcoin or Bitcoin Cash, and make that information via REST API.
 category:       Bitcoin, Finance, Network
diff --git a/src/Network/Haskoin/Store/Block.hs b/src/Network/Haskoin/Store/Block.hs
--- a/src/Network/Haskoin/Store/Block.hs
+++ b/src/Network/Haskoin/Store/Block.hs
@@ -238,12 +238,16 @@
                         t <- getTxData (db, defaultReadOptions) h
                         guard (isNothing t)
                         return (getTxHash h)
-            $(logDebugS) "Block" $
-                "Requesting " <> fromString (show (length xs)) <>
-                " new transactions"
-            net <- blockConfNet <$> asks myConfig
-            let inv = if getSegWit net then InvWitnessTx else InvTx
-            MGetData (GetData (map (InvVector inv) xs)) `sendMessage` p
+            unless (null xs) $ do
+                $(logDebugS) "Block" $
+                    "Requesting " <> fromString (show (length xs)) <>
+                    " new transactions"
+                net <- blockConfNet <$> asks myConfig
+                let inv =
+                        if getSegWit net
+                            then InvWitnessTx
+                            else InvTx
+                MGetData (GetData (map (InvVector inv) xs)) `sendMessage` p
 
 checkTime :: (MonadReader BlockRead m, MonadUnliftIO m, MonadLoggerIO m) => m ()
 checkTime =