From abda27b0d2032736142b233541814d1d3604d4b0 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 30 Aug 2008 13:28:59 -0500
Subject: [PATCH] don't touch vocabs accessors.  oops

---
 basis/help/lint/lint.factor      | 2 +-
 basis/tools/vocabs/vocabs.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/help/lint/lint.factor b/basis/help/lint/lint.factor
index 0edcc8cfb1..61d9827a48 100755
--- a/basis/help/lint/lint.factor
+++ b/basis/help/lint/lint.factor
@@ -117,7 +117,7 @@ M: help-error error.
     ] keep ;
 
 : check-about ( vocab -- )
-    [ help>> [ article drop ] when* ] check-something ;
+    [ vocab-help [ article drop ] when* ] check-something ;
 
 : check-vocab ( vocab -- seq )
     "Checking " write dup write "..." print
diff --git a/basis/tools/vocabs/vocabs.factor b/basis/tools/vocabs/vocabs.factor
index 67c39d2700..08eb3d7c32 100755
--- a/basis/tools/vocabs/vocabs.factor
+++ b/basis/tools/vocabs/vocabs.factor
@@ -175,7 +175,7 @@ M: vocab summary
     [
         dup vocab-summary %
         " (" %
-        vocab-words assoc-size #
+        words>> assoc-size #
         " words)" %
     ] "" make ;