diff --git a/app/Main.hs b/app/Main.hs
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -13,7 +13,6 @@
 
 module Main (main) where
 
-import Control.Applicative ((<|>))
 import Control.Monad (when)
 import Control.Monad.Cont (ContT (ContT), runContT)
 import Control.Monad.Logger
@@ -23,7 +22,6 @@
     runStderrLoggingT,
   )
 import Control.Monad.Trans (lift)
-import Control.Monad.Trans.Maybe (MaybeT (..), runMaybeT)
 import Data.Char (toLower)
 import Data.Default (Default (..))
 import Data.List (intercalate)
diff --git a/haskoin-store.cabal b/haskoin-store.cabal
--- a/haskoin-store.cabal
+++ b/haskoin-store.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           haskoin-store
-version:        1.5.9
+version:        1.5.10
 synopsis:       Storage and index for Bitcoin and Bitcoin Cash
 description:    Please see the README on GitHub at <https://github.com/haskoin/haskoin-store#readme>
 category:       Bitcoin, Finance, Network
diff --git a/src/Haskoin/Store/BlockStore.hs b/src/Haskoin/Store/BlockStore.hs
--- a/src/Haskoin/Store/BlockStore.hs
+++ b/src/Haskoin/Store/BlockStore.hs
@@ -623,7 +623,7 @@
   ts <- asks (.txs)
   now <- liftIO getCurrentTime
   atomically . modifyTVar ts . HashMap.filter $ \p ->
-    now `diffUTCTime` p.time > 600
+    now `diffUTCTime` p.time > 3600
 
 addPendingTx :: (MonadIO m) => PendingTx -> BlockT m ()
 addPendingTx p = do
@@ -836,10 +836,10 @@
               <> " "
               <> txHashToHex h
               <> ": "
-              <> "Pending"
+              <> "Already Pending"
           return Nothing
         False ->
-          getActiveTxData h >>= \case
+          getTxData h >>= \case
             Just _ -> do
               $(logDebugS) "BlockStore" $
                 "Tx "