diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index fefcf95774..de2b969224 100644
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -127,7 +127,7 @@ M: pathname url-of
     dup topic>filename utf8 [ help>html write-xml ] with-file-writer ;
 
 : all-vocabs-really ( -- seq )
-    all-disk-vocabs-recursive no-roots no-prefixes
+    all-disk-vocabs-recursive filter-vocabs
     [ vocab-name "scratchpad" = ] reject ;
 
 : all-topics ( -- topics )