diff --git a/hbs2-tests/test/TCQ.hs b/hbs2-tests/test/TCQ.hs
index 8ea0bfaa..3525051a 100644
--- a/hbs2-tests/test/TCQ.hs
+++ b/hbs2-tests/test/TCQ.hs
@@ -148,10 +148,12 @@ main = do
 
         entry $ bindMatch "--help" $ nil_ \case
           HelpEntryBound what -> helpEntry what
-          [StringLike s]      -> helpList False (Just s)
-          _                   -> helpList False Nothing
+          [StringLike s]      -> helpList True (Just s)
+          _                   -> helpList True Nothing
+
+
+        hidden $ internalEntries
 
-        internalEntries
         SF.entries
 
         entry $ bindMatch "#!" $ nil_ $ const none