"| tar -b$blocksize -vvxf - TAPEID";
}
-sub writetapeid ($) {
+sub writetapeid ($$) {
open T, ">TAPEID" or die $!;
- print T "$_[0]\n" or die $!;
+ print T "$_[0]\n$_[1]\n" or die $!;
close T or die $!;
system "tar -b$blocksize -vvcf TAPEID.tar TAPEID"; $? and die $?;