END-SUBRECORD
* END-SUBRECORD ( outer-offset here some-offset -- outer-offset+some )

end definition of a subrecord (mpe.000)
 : END-SUBRECORD  TUCK SWAP !  + ;

struct ordinary primitive