@@ -760,7 +760,7 @@ let generate com =
newline ctx;
) (List.rev ctx.inits);
List.iter (generate_static ctx) (List.rev ctx.statics);
- let ch = open_out com.file in
+ let ch = open_out_bin com.file in
output_string ch (Buffer.contents ctx.buf);
close_out ch;
t()