     drop ;
     ! <string-writer> [ read-data-blocks ] keep
     ! >string [ zero? ] trim-tail filename set
-    ! filename get tar-prepend-path make-directories ;
+    ! filename get prepend-current-directory make-directories ;
 
 ! Multi volume continuation entry
 : typeflag-M ( header -- ) unknown-typeflag ;

: typeflag-X ( header -- ) unknown-typeflag ;

: (parse-tar) ( -- )
    block-size read dup length 512 = [
        parse-tar-header
        dup typeflag>>
        {

        drop
    ] if ;

: untar ( path -- )
    normalize-path [ ] [ parent-directory ] bi [
         binary [ (parse-tar) ] with-file-reader
    ] with-directory ;
