diff --git a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
index 0f0b9c00..299e50b4 100644
--- a/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
+++ b/hbs2-storage-ncq/lib/HBS2/Storage/NCQ.hs
@@ -1617,7 +1617,7 @@ ncqCompact ncq@NCQStorage{..} = do
   state0 <- readTVarIO q
 
   for_ (HM.toList state0) $ \(fk, es) -> do
-    notice $ "TO DELETE" <+> pretty fk <+> pretty (HS.size es)
+    trace $ "TO DELETE" <+> pretty fk <+> pretty (HS.size es)
 
     let fDataNameA = ncqGetDataFileName ncq fk
     let fIndexNameA = ncqGetIndexFileName ncq fk