 
 ! Directory
 : typeflag-5 ( header -- )
-    tar-header-name tar-append-path make-directories ;
+    name>> tar-prepend-path make-directories ;
 
 ! FIFO
 : typeflag-6 ( header -- ) unknown-typeflag ;


! Long file name
: typeflag-L ( header -- )
    <string-writer> [ read-data-blocks ] keep
    >string [ zero? ] right-trim filename set
    global [ "long filename: " write filename get . flush ] bind
    filename get tar-append-path make-directories ;

! Multi volume continuation entry
: typeflag-M ( header -- ) unknown-typeflag ;

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

! Global POSIX header
: typeflag-g ( header -- ) typeflag-0 ;

! Extended POSIX header
: typeflag-x ( header -- ) unknown-typeflag ;
