
  TYPE
    clt$function_name = ost$name;

*copyc ost$name
