diff --git a/hbs2-keyman/hbs2-keyman/Main.hs b/hbs2-keyman/hbs2-keyman/Main.hs
index 5afa21c8..0047cb7a 100644
--- a/hbs2-keyman/hbs2-keyman/Main.hs
+++ b/hbs2-keyman/hbs2-keyman/Main.hs
@@ -139,7 +139,7 @@ updateKeys = do
       -- FIXME: assume-huge-list
       seen <- withState selectAllSeenGKTx
 
-      debug $ "SEEN" <+> pretty (List.length seen)
+      trace $ "SEEN" <+> pretty (List.length seen)
 
       flip runContT pure $ callCC \exit -> do
         when (List.null rchans) $ exit ()