diff --git a/CHANGES.md b/CHANGES.md
index 6f10b39342..aea9d51d5c 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -15,6 +15,7 @@
 
 #### Internal
 
+  + Work with base v0.13.0 (#1163) (Jules Aguillon)
   + Sanitize formatting of or-patterns and remove or_newline (#1145) (Guillaume Petiot)
   + Replace pre_break and if_newline by cbreak (#1090) (Guillaume Petiot)
   + Use opt and fmt_opt to simplify formatting (#1150) (Guillaume Petiot)
diff --git a/lib/Translation_unit.ml b/lib/Translation_unit.ml
index 030648d888..ca88504dec 100644
--- a/lib/Translation_unit.ml
+++ b/lib/Translation_unit.ml
@@ -91,7 +91,7 @@ let dump_formatted ~input_name ?output_file ~suffix fmted =
   else None
 
 let print_error ?(fmt = Format.err_formatter) conf ~input_name error =
-  let exe = Filename.basename Sys.argv.(0) in
+  let exe = Filename.basename Caml.Sys.argv.(0) in
   match error with
   | Invalid_source _ when conf.Conf.quiet -> ()
   | Invalid_source {exn} -> (