diff --git a/src/client_main.ml b/src/client_main.ml
index a3a410c51..fef55fb71 100644
--- a/src/client_main.ml
+++ b/src/client_main.ml
@@ -70,10 +70,10 @@ let main () =
         Format.eprintf "%s%!" help ;
         Lwt.return 1
     | Cli_entries.Command_not_found ->
-        Format.eprintf "Unkonwn command, try `-help`.\n%!" ;
+        Format.eprintf "Unknown command, try `-help`.\n%!" ;
         Lwt.return 1
     | Client_commands.Version_not_found ->
-        Format.eprintf "Unkonwn protocol version, try `list versions`.\n%!" ;
+        Format.eprintf "Unknown protocol version, try `list versions`.\n%!" ;
         Lwt.return 1
     | Cli_entries.Bad_argument (idx, _n, v) ->
         Format.eprintf "There's a problem with argument %d, %s.\n%!" idx v ;
diff --git a/src/webclient_main.ml b/src/webclient_main.ml
index 532644f1d..bd63f2183 100644
--- a/src/webclient_main.ml
+++ b/src/webclient_main.ml
@@ -69,9 +69,9 @@ let eval_command argv =
          | Arg.Bad help ->
              Format.asprintf "%s%!" help
          | Cli_entries.Command_not_found ->
-             Format.asprintf "Unkonwn command, try `-help`.\n%!"
+             Format.asprintf "Unknown command, try `-help`.\n%!"
          | Client_commands.Version_not_found ->
-             Format.asprintf "Unkonwn protocol version, try `list versions`.\n%!"
+             Format.asprintf "Unknown protocol version, try `list versions`.\n%!"
          | Cli_entries.Bad_argument (idx, _n, v) ->
              Format.asprintf "There's a problem with argument %d, %s.\n%!" idx v
          | Cli_entries.Command_failed message ->