let openentry_safe root_dir fqp_in backend_spec =
  let restore = move_gate fqp_in in
  let fd_in = openentry_int restore in
    move_ungate fqp_in restore;
    let (fqp,slice_name) = backend_spec in
      Hashtbl.replace direct_fifo_table fqp_in (Some(root_dir,fqp,slice_name,fd_in))