diff --git a/src/lib_client_base_unix/client_main_run.ml b/src/lib_client_base_unix/client_main_run.ml
index 9b355376b..b3cfe3f2b 100644
--- a/src/lib_client_base_unix/client_main_run.ml
+++ b/src/lib_client_base_unix/client_main_run.ml
@@ -183,11 +183,13 @@ let main select_commands =
         Format.eprintf "@{<error>@{<title>Fatal error@}@} unknown protocol version.@." ;
         Lwt.return 1
     | Failure message ->
-        Format.eprintf "@{<error>@{<title>Fatal error@}@} @[<hov 0>%a@]@."
+        Format.eprintf "@{<error>@{<title>Fatal error@}@}@.\
+                       \  @[<h 0>%a@]@."
           Format.pp_print_text message ;
         Lwt.return 1
     | exn ->
-        Format.printf "@{<error>@{<title>Fatal error@}@} @[<hov 0>%a@]@."
+        Format.printf "@{<error>@{<title>Fatal error@}@}@.\
+                      \  @[<h 0>%a@]@."
           Format.pp_print_text (Printexc.to_string exn) ;
         Lwt.return 1
   end >>= fun retcode ->