  PROCEDURE [XREF] rap$correct_source_library (base_file: clt$file;
        target_file: clt$file;
        correction: ^SEQ ( * );
    VAR status: ost$status);

*copyc clt$file
*copyc ost$status
