
  PROCEDURE [XREF] pmp$verify_current_child (task_id: pmt$task_id;
    VAR current_child {control} : boolean);
?? PUSH (LISTEXT := ON) ??
*copyc PMT$TASK_ID
?? POP ??
