     "\n;VOCAB-ROOT>" surround "resource:core-strings.factor" utf8 set-file-contents ;
 
 : parsed-core-to-file ( -- )
-    core-bootstrap-vocabs
+    core-vocabs
     [ vocab>literals ] map-zip
     [
         first2 [ "<VOCAB: " prepend ] dip

CONSTRUCTOR: <renamed> renamed ( slice string -- obj ) ;

: trim-before-newline ( seq -- seq' )
    dup [ char: \s = not ] find
    { char: \r char: \n } member?
    [ tail-slice ] [ drop ] if ;

: write-whitespace ( last obj -- )
    swap
    [ swap slice-between ] [ slice-before ] if*
    trim-before-newline io::write ;

GENERIC: write-literal* ( last obj -- last' )
M: slice write-literal* [ write-whitespace ] [ write ] [ ] tri ;

]]

: strings-core-to-file ( -- )
    core-vocabs
    [ ".private" ?tail drop vocab-source-path utf8 file-contents ] map-zip
    [ "[========[" dup matching-delimiter-string surround ] assoc-map
    [
