
  TYPE
    clt$parameter_substitution = record
      name: clt$parameter_name,
      text: ^clt$expression_text,
    recend;

*copyc clt$expression_text
*copyc clt$parameter_name
