
  TYPE
    clt$internal_data_value_header = record
      value: REL (clt$internal_data_value) ^clt$i_data_value,
      unused_space: clt$internal_data_value_size,
      minimum_allocation_increment: clt$internal_data_value_size,
    recend;

*copyc clt$i_data_value
*copyc clt$internal_data_value
*copyc clt$internal_data_value_size
