     } at* ;
 
 : add-using ( object -- )
-    vocabulary>> using get [ conjoin ] [ drop ] if* ;
+    vocabulary>> using get [ adjoin ] [ drop ] if* ;
 
 : ($values.) ( array -- )
     [ bl ] [

    ] with-output-stream ;

: with-scaffold ( quot -- )
    [ H{ } clone using ] dip with-variable ; inline

: link-vocab ( vocab -- )
    check-vocab


: write-using ( vocab -- )
    "USING:" write
    using get members
    { "help.markup" "help.syntax" } append natural-sort remove
    [ bl write ] each
    " ;" print ;
