
  TYPE
    stt$vst_pf_root_storage = record
      case pf_root_ever_stored: boolean of
      = TRUE =
        pf_root_size: pft$root_size,
        pf_root_locator: stt$pf_root_locator,
      = FALSE =
        ,
      casend,
    recend;

*copyc pft$root_size
*copyc stt$pf_root_locator
