let node_assoc_valid (dr: node_ref) (b: b)
  : node =
      begin try List.assoc dr b.browser_nodes with
      | Not_found -> assert false
      end