     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 ;
+    vocab-append-path dup [
+        dup exists? [
+            utf8 file-lines harvest
+        ] [
+            drop f
+        ] if
+    ] when ;
 
 : set-vocab-file-contents ( seq vocab name -- )
     dupd vocab-append-path [

    vocab-dir "tags.txt" append-path ;

: vocab-tags ( vocab -- tags )
    dup vocab-tags-path vocab-file-contents harvest ;

: set-vocab-tags ( tags vocab -- )
    dup vocab-tags-path set-vocab-file-contents ;

    vocab-dir "resources.txt" append-path ;

: vocab-resources ( vocab -- patterns )
    dup vocab-resources-path vocab-file-contents ;

: set-vocab-resources ( patterns vocab -- )
    dup vocab-resources-path set-vocab-file-contents ;
