FAQ fix

diff --git a/extra/faq/faq.factor b/extra/faq/faq.factor
index 9f39b33dc6fc63cda61762d83b0baa6fc0158cd2..f10e6481fa3b924c1c5d263dc791c14f075c43b1 100644 (file)
--- 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 ;