  PROCEDURE [XREF] ocp$build_corrector
    (    old_breaklist: ^oct$breaklist;
         new_breaklist: ^oct$breaklist;
         second_inter_ol: ^SEQ ( * );
         new_ol: ^SEQ ( * );
         length_of_old_breaklist: oct$breaklist_length;
         length_of_new_breaklist: oct$breaklist_length;
     VAR corrector: ^SEQ ( * );
     VAR status: ost$status);

*copyc ost$status
*copyc oct$breaklist


