         scaffold-copyright help-file-string write-using write
     ] with-output-stream ;
 
-: check-scaffold ( vocab-root str -- vocab-root str )
+: check-scaffold ( vocab-root string -- vocab-root string )
     [ check-root ] [ check-vocab-name ] bi* ;
 
-: vocab>scaffold-path ( vocab-root str -- path )
+: vocab>scaffold-path ( vocab-root string -- path )
     path-separator first CHAR: . associate substitute
     append-path ;
 
-: prepare-scaffold ( vocab-root str -- str path )
+: prepare-scaffold ( vocab-root string -- string path )
     check-scaffold [ vocab>scaffold-path ] keep ;
 
-: scaffold-help ( vocab-root str -- )
+: scaffold-help ( vocab-root string -- )
     H{ } clone using [
         prepare-scaffold
         [ "-docs.factor" scaffold-path ] dip
         swap [ set-scaffold-help-file ] [ 2drop ] if
     ] with-variable ;
 
-: scaffold-vocab ( vocab-root str -- )
+: scaffold-vocab ( vocab-root string -- )
     prepare-scaffold
     {
         [ drop scaffold-directory ]

    [ ".factor" scaffold-path ] dip
    swap [ set-scaffold-main-file ] [ 2drop ] if ;

: tests-file-string ( vocab -- str )
    [
        scaffold-copyright
        "USING: tools.test " write dup write " ;" print

    developer-name get [ "Your name" ] unless* bl write "." print
    "! See http://factorcode.org/license.txt for BSD license." print ;

: main-file-string ( vocab -- string )
    [
        scaffold-copyright
        "USING: ;" print
