diff --git a/src/QBar/Core.hs b/src/QBar/Core.hs
index c87a6976d2c46fd95832a0ecb26b6da6681663ba..49b01a314879e4fbf07716858e6460bd4a7419ac 100644
--- a/src/QBar/Core.hs
+++ b/src/QBar/Core.hs
@@ -64,7 +64,7 @@ class IsCachable a where
 instance IsCachable PushBlock where
   toCachedBlock = cachePushBlock
 instance IsCachable PullBlock where
-  toCachedBlock = toCachedBlock . schedulePullBlock
+  toCachedBlock = cachePushBlock . schedulePullBlock
 instance IsCachable BlockCache where
   toCachedBlock = id