1.6.fix warnings

The code compiles now with -w Ae and -warn-error A.
I would expect `... >>= fun () ->` here, didn't the compiler point in that direction?