Record field disambiguation fail

record.ml

type t1 = { x: int; y: int }
type t2 = { x: int; z: int }

let f () = { x = 1; y = 0 }

(* no error *)
let () =
  f () |> fun x ->
  ignore x.x;
  ignore x.y

let wrap f x = f x

(* type error *)
let () =
  f () |> wrap (fun x ->
    ignore x.x;
    ignore x.y
  )