     [ topic>pdf ] map <pb> 1array join ;
 
 : write-pdf ( pdf name -- )
-    [ pdf>string ] dip home prepend-path utf8 set-file-contents ;
+    [ pdf>string ] dip utf8 set-file-contents ;
 
 PRIVATE>
 

        "primitive-index"
        "error-index"
        "class-index"
    } topics>pdf "index.pdf" write-pdf ;

: furnace-pdf ( -- )
    "furnace" "furnace.pdf" article-pdf ;

: alien-pdf ( -- )
    "alien" "alien.pdf" article-pdf ;

: io-pdf ( -- )
    "io" "io.pdf" article-pdf ;

    ] [ write-pdf ] bi* ;

: cookbook-pdf ( -- )
    "cookbook" "~/cookbook.pdf" article-pdf ;

: first-program-pdf ( -- )
    "first-program" "~/first-program.pdf" article-pdf ;

: handbook-pdf ( -- )
    "handbook-language-reference" "~/handbook.pdf" article-pdf ;

: system-pdf ( -- )
    "handbook-system-reference" "~/system.pdf" article-pdf ;

: tools-pdf ( -- )
    "handbook-tools-reference" "~/tools.pdf" article-pdf ;

: index-pdf ( -- )
    {
