@@ -233,8 +233,12 @@ implementation
procedure tarobjectwriter.closefile;
+ const
+ LF:char=#10;
begin
- ardata.align(2);
+ { align on an even boundary, by inserting an LF if necessary }
+ if odd(ardata.size) then
+ write(LF,1);
{ fix the size in the header }
createarhdr(objfn,ardata.size-objpos-sizeof(tarhdr),'42','42','644');
{ write the header }