diff --git a/hbs2-tests/test/Main.hs b/hbs2-tests/test/Main.hs
index 4c2a08fc..d62bb442 100644
--- a/hbs2-tests/test/Main.hs
+++ b/hbs2-tests/test/Main.hs
@@ -77,8 +77,6 @@ blockSizeProto :: forall e m  . ( MonadIO m
 blockSizeProto getBlockSize evHasBlock =
   \case
     GetBlockSize h -> do
-      debug $ "GetBlockSize" <+> pretty h
-
       -- TODO: STORAGE: seek for block
       -- TODO: defer answer (?)
       -- TODO: does it really work?