ocaml backend fix