diff --git a/src/client_main.ml b/src/client_main.ml
index 11d278621..b74ad2e56 100644
--- a/src/client_main.ml
+++ b/src/client_main.ml
@@ -76,6 +76,9 @@ let main () =
       | Cli_entries.Command_failed message ->
           Format.eprintf "Command failed, %s.\n%!" message ;
           Pervasives.exit 1
+      | Failure message ->
+          Format.eprintf "%s%!" message ;
+          Pervasives.exit 1
       | exn ->
           Format.printf "Fatal internal error: %s\n%!"
             (Printexc.to_string exn) ;