diff --git a/src/bin_client/client_protocols_commands.ml b/src/bin_client/client_protocols_commands.ml
index c26bc523c..e335777dc 100644
--- a/src/bin_client/client_protocols_commands.ml
+++ b/src/bin_client/client_protocols_commands.ml
@@ -49,7 +49,7 @@ let commands () =
     command ~group ~desc: "Inject a new protocol into the node."
       no_options
       (prefixes [ "inject" ; "protocol" ]
-       @@ param ~name:"dir" ~desc:"directory containing a protocol" check_dir_parameter
+       @@ param ~name:"dir" ~desc:"directory containing the sources of a protocol" check_dir_parameter
        @@ stop)
       (fun () dirname (cctxt : #Client_context.full) ->
          Lwt.catch
diff --git a/src/lib_client_commands/client_admin_commands.ml b/src/lib_client_commands/client_admin_commands.ml
index 4f48fa114..66efa7051 100644
--- a/src/lib_client_commands/client_admin_commands.ml
+++ b/src/lib_client_commands/client_admin_commands.ml
@@ -29,10 +29,10 @@ let commands () =
                 title = "Commands to perform privileged operations on the node" } in
   [
     command ~group
-      ~desc: "Make the node forget its decision of rejecting a block."
+      ~desc: "Make the node forget its decision of rejecting blocks."
       no_options
       (prefixes [ "unmark" ; "invalid" ]
-       @@ seq_of_param (Block_hash.param ~name:"block" ~desc:"block to remove from invalid list"))
+       @@ seq_of_param (Block_hash.param ~name:"blocks" ~desc:"blocks to remove from invalid list"))
       (fun () blocks (cctxt : #Client_context.full) ->
          iter_s
            (fun block ->
diff --git a/src/lib_client_commands/client_p2p_commands.ml b/src/lib_client_commands/client_p2p_commands.ml
index e0207fcc4..7b7295e99 100644
--- a/src/lib_client_commands/client_p2p_commands.ml
+++ b/src/lib_client_commands/client_p2p_commands.ml
@@ -192,7 +192,7 @@ let commands () =
          return_unit
       ) ;
 
-    command ~group ~desc: "Clear all ACLs."
+    command ~group ~desc: "Clear all access control rules."
       no_options
       (prefixes [ "clear" ; "acls" ] @@ stop)
       (fun () (cctxt : #Client_context.full) ->