
  TYPE
    clt$type_changes = array [1 .. * ] of clt$type_change;

*copyc clt$type_change
