let tocudf tables ?(options=Debcudf.default_options) ?(inst=false) pkg =
  let options = { options with Debcudf.extras_opt = extras_tocudf } in
  let pkg = 
    if is_installed pkg then
      let s = 
        if is_on_hold pkg then "hold ok installed" 
        else "install ok installed"
      in
      { pkg with Packages.extras = ("status",s)::pkg.Packages.extras }
    else pkg
  in
  Debcudf.tocudf tables ~options (* ~inst:(is_installed pkg) *) pkg