From 315f7319fb1840afe9baa83ac280e7b7819cf85e Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <ehrenbed@carleton.edu>
Date: Tue, 18 Dec 2007 00:43:13 -0500
Subject: [PATCH] FAQ fix

---
 extra/faq/faq.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ;