
  FUNCTION [INLINE] pfp$attach_for_write
    (    usage_selections: pft$usage_selections): boolean;

?? PUSH (LISTEXT := ON) ??
    pfp$attach_for_write := usage_selections *
          $pft$usage_selections [pfc$shorten, pfc$append,
          pfc$modify] <> $pft$usage_selections [];

  FUNCEND pfp$attach_for_write;

*copyc pft$usage_selections
?? POP ??
