bugfix

typer.ml

@@ -265,7 +265,7 @@ let prepare_using_field cf = match cf.cf_type with
 	| TFun((_,_,tf) :: args,ret) ->
 		let rec loop acc overloads = match overloads with
 			| ({cf_type = TFun((_,_,tfo) :: args,ret)} as cfo) :: l ->
-				let tfo = apply_params cfo.cf_params (List.map snd cf.cf_params) tfo in
+				let tfo = apply_params cfo.cf_params (List.map snd cfo.cf_params) tfo in
 				(* ignore overloads which have a different first argument *)
 				if Type.type_iseq tf tfo then loop ({cfo with cf_type = TFun(args,ret)} :: acc) l else loop acc l
 			| _ :: l ->