Merge branch 'v8.5'

1 files changed, 3 insertions, 3 deletions

diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml
index f4b81a241b..dc52ea9aad 100644
--- a/ide/ide_slave.ml
+++ b/ide/ide_slave.ml
@@ -327,14 +327,14 @@ let handle_exn (e, info) =
   let loc_of e = match Loc.get_loc e with
     | Some loc when not (Loc.is_ghost loc) -> Some (Loc.unloc loc)
     | _ -> None in
-  let mk_msg e = read_stdout ()^"\n"^string_of_ppcmds (Errors.print e) in
+  let mk_msg () = read_stdout ()^"\n"^string_of_ppcmds (Errors.print ~info e) in
   match e with
   | Errors.Drop -> dummy, None, "Drop is not allowed by coqide!"
   | Errors.Quit -> dummy, None, "Quit is not allowed by coqide!"
   | e ->
       match Stateid.get info with
-      | Some (valid, _) -> valid, loc_of info, mk_msg e
-      | None -> dummy, loc_of info, mk_msg e
+      | Some (valid, _) -> valid, loc_of info, mk_msg ()
+      | None -> dummy, loc_of info, mk_msg ()
 
 let init =
   let initialized = ref false in