let page_assoc (pr: page_ref) (b: b)
  : page option =
    begin try Some(List.assoc pr b.browser_pages) with
    | Not_found -> None
    end