
  CONST
    pfc$family_path_index = pfc$set_path_index + 1;

*copyc pfc$set_path_index
