  TYPE
    cmt$state_change_request = RECORD
    CASE pending: boolean OF
    = TRUE =
      new_state: cmt$element_state,
    = FALSE =
       ,
    CASEND,
  RECEND;

?? PUSH (LISTEXT := ON) ??
*copyc cmt$element_state
?? POP ??
