
  PROCEDURE [XREF] clp$push_utility_block
    (    utility_name: clt$utility_name;
     VAR utility_block: ^clt$block);

?? PUSH (LISTEXT := ON) ??
*copyc clt$block
*copyc clt$utility_name
?? POP ??
