     vocab-dir "resources.txt" append-path ;
 
 : vocab-resources ( vocab -- patterns )
-    dup vocab-resources-path vocab-file-contents harvest ;
+    dup vocab-resources-path vocab-file-contents ;
 
 : set-vocab-resources ( patterns vocab -- )
     dup vocab-resources-path set-vocab-file-contents ;

    dup find-vocab-root [ no-vocab ] unless ;

MEMO: vocab-file-contents ( vocab name -- seq )
    vocab-append-path dup
    [ dup exists? [ utf8 file-lines ] [ drop f ] if ] when ;

: set-vocab-file-contents ( seq vocab name -- )
    dupd vocab-append-path [

ERROR: bad-platform name ;

: vocab-platforms ( vocab -- platforms )
    dup vocab-platforms-path vocab-file-contents
    [ dup "system" lookup-word [ ] [ bad-platform ] ?if ] map ;

: set-vocab-platforms ( platforms vocab -- )
