
*IF NOT $true(osv$unix)
  PROCEDURE [INLINE] clp$find_working_catalog
    (VAR working_catalog: ^^clt$working_catalog);

?? PUSH (LISTEXT := ON) ??

    VAR
      ignore_object_in_current_task: boolean,
      object: ^clt$environment_object_contents;


    clp$find_environment_object (clc$eo_working_catalog, object,
          ignore_object_in_current_task);

    working_catalog := object;

  PROCEND clp$find_working_catalog;

*copyc clt$working_catalog
?? POP ??
*copyc clp$find_environment_object
*ELSE
  PROCEDURE [XREF] clp$find_working_catalog
    (VAR working_catalog: clt$working_catalog;
     VAR status: ost$status);

*copyc clt$working_catalog
*copyc ost$status
*IFEND
