I just tested using the following file


from here:


Just ungziped it and then tried to untar using the tcl script.

Here is the error I get this time:

expected integer but got "0à♥♥☻"
    while executing
"format %d 0[string trim [set $x] " \x00"]"
    (procedure "readHeader" line 8)
    invoked from within
"readHeader [read $fh 512]"
    (procedure "::tar::untar" line 22)
    invoked from within
"::tar::untar untar-test.tar"
    (file "untar-test.tcl" line 3)

untar was able to extract the first file and then failed