
  PROCEDURE [XREF] clp$eo_push_working_catalog
    (    push_reason: clt$env_object_push_reason;
         new_object: ^clt$environment_object_contents;
         new_object_in_current_task: boolean;
         pushed_object_in_current_task: boolean;
         pushed_object: ^clt$environment_object_contents;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$environment_object_contents
*copyc clt$env_object_push_reason
*copyc ost$status
?? POP ??
