diff --git a/extra/faq/faq.factor b/extra/faq/faq.factor
index 9f39b33dc6..f10e6481fa 100644
--- a/extra/faq/faq.factor
+++ b/extra/faq/faq.factor
@@ -9,7 +9,7 @@ IN: faq
     over >r find r> rot 1+ tail ; inline
 
 : tag-named? ( tag name -- ? )
-    assure-name swap (get-tag) ;
+    assure-name swap tag-named? ;
 
 ! Questions
 TUPLE: q/a question answer ;