diff --git a/ocaml/t/guestfs_030_create_flags.ml b/ocaml/t/guestfs_030_create_flags.ml
index 9c1d1c138..464c06c66 100644
--- a/ocaml/t/guestfs_030_create_flags.ml
+++ b/ocaml/t/guestfs_030_create_flags.ml
@@ -17,7 +17,7 @@
  *)
 
 let () =
-  let g = new Guestfs.guestfs ~environment:false ~close_on_exit:false () in
+  let g = new Guestfs.guestfs ~environment:false ~close_on_exit:true () in
   g#parse_environment ()
 
 let () = Gc.compact ()