
  PROCEDURE [XREF] clp$find_establishing_block
    (    condition: clt$when_condition;
     VAR {input, output} when_block: ^clt$block);

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