PACKED is lost from a record embedded inside another record

With the example:
 

r1 := RECORD,PACKED
   STRING f1;
   INTEGER f2;
END;

r2 := RECORD
   r1;
END;

 
r2 should have the fields in the order (f2, f1), but because the packed processing happens later on that does not happen.