let load bk file =
  Hashtbl.clear bk.bk_table;
  bk.bk_cf_group#read file;
  let f (name, data) = set bk name data in
  List.iter f bk.bk_cf_cp#get