fix load error in scaffold

basis/tools/scaffold/scaffold-docs.factor

@@ -1,6 +1,6 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: help.markup help.syntax kernel strings words ;
+USING: help.markup help.syntax kernel strings words vocabs ;
 IN: tools.scaffold
 
 HELP: developer-name
@@ -13,7 +13,7 @@ HELP: help.
 { $description "Prints out scaffold help markup for a given word." } ;
 
 HELP: scaffold-help
-{ $values { "string" string } }
+{ $values { "vocab" vocab } }
 { $description "Takes an existing vocabulary and creates a help file with scaffolded help for each word. This word only works if no help file yet exists." } ;
 
 HELP: scaffold-undocumented

basis/tools/scaffold/scaffold.factor

@@ -169,7 +169,7 @@ ERROR: no-vocab vocab ;
 : docs-header. ( word -- )
     "HELP: " write name>> print ;
 
-: (docs.) ( word -- )
+: (help.) ( word -- )
     [ docs-header. ] [ $values. ] [ $description. ] tri ;
 
 : interesting-words ( vocab -- array )
@@ -178,7 +178,7 @@ ERROR: no-vocab vocab ;
     natural-sort ;
 
 : interesting-words. ( vocab -- )
-    interesting-words [ (docs.) nl ] each ;
+    interesting-words [ (help.) nl ] each ;
 
 : docs-file-string ( vocab -- str2 )
     [
@@ -216,11 +216,11 @@ ERROR: no-vocab vocab ;
     "Edit documentation: " write
     "-docs.factor" vocab/suffix>path <pathname> . ;
 
-: docs. ( word -- )
-    [ (docs.) ] [ nl vocabulary>> link-vocab ] bi ;
-
 PRIVATE>
 
+: help. ( word -- )
+    [ (help.) ] [ nl vocabulary>> link-vocab ] bi ;
+
 : scaffold-help ( vocab -- )
     [
         dup "-docs.factor" vocab/suffix>path scaffolding? [