output_string oc (string_of_int version); (* field 4 *)
output_binary_int oc (Hashtbl.hash marshalled); (* field 5 *)
output_string oc marshalled; (* field 6 *)
- close_out oc
+ close_out oc;
+ HExtlib.chmod 0o664 fname
let expect ic fname s =
let len = String.length s in