  PROCEDURE [XREF] rap$move_correction (add_package: ^SEQ ( * );
        i: rat$element_index);

*copyc rat$correction_package

