diff --git a/hydra-node/src/Hydra/HeadLogic.hs b/hydra-node/src/Hydra/HeadLogic.hs
index 3012bef7cd1..3d3fc64b6da 100644
--- a/hydra-node/src/Hydra/HeadLogic.hs
+++ b/hydra-node/src/Hydra/HeadLogic.hs
@@ -1423,7 +1423,7 @@ aggregate st = \case
             { coordinatedHeadState =
                 coordinatedHeadState
                   { localUTxO = newLocalUTxO
-                  , pendingDeposits = Map.delete (spy recoveredTxId) existingDeposits
+                  , pendingDeposits = Map.delete recoveredTxId existingDeposits
                   }
             }
        where
diff --git a/hydra-prelude/src/Hydra/Prelude.hs b/hydra-prelude/src/Hydra/Prelude.hs
index aa0dae58df1..456afc48a56 100644
--- a/hydra-prelude/src/Hydra/Prelude.hs
+++ b/hydra-prelude/src/Hydra/Prelude.hs
@@ -257,9 +257,11 @@ withFile fp mode action =
     Right x -> pure x
 
 -- | Like 'traceShow', but with pretty printing of the value.
+{-# WARNING spy "Use for debugging purposes only" #-}
 spy :: Show a => a -> a
 spy a = trace (toString $ pShow a) a
 
 -- | Like 'spy' but prefixed with a label.
+{-# WARNING spy' "Use for debugging purposes only" #-}
 spy' :: Show a => String -> a -> a
 spy' msg a = trace (msg <> ": " <> toString (pShow a)) a