diff --git a/src/configurator/v1.ml b/src/configurator/v1.ml
index 149d3e78..1f11d417 100644
--- a/src/configurator/v1.ml
+++ b/src/configurator/v1.ml
@@ -487,7 +487,7 @@ end
 
 let write_flags fname s =
   let path = Path.in_source fname in
-  let sexp = Usexp.List(List.map ~f:Usexp.atom_or_quoted_string s) in
+  let sexp = Usexp.List (List.map s ~f:(fun s -> Usexp.Quoted_string s)) in
   Io.write_file path (Usexp.to_string sexp ~syntax:Dune)
 
 let main ?(args=[]) ~name f =