diff --git a/src/plugins/server/server_batch.ml b/src/plugins/server/server_batch.ml
index 0eb234f3b0baaa62ea5b0a947f0fea9fe7dc12ea..bafc368dfe2448a1b516f808339b6e9b90e53cd2 100644
--- a/src/plugins/server/server_batch.ml
+++ b/src/plugins/server/server_batch.ml
@@ -52,7 +52,7 @@ module BatchOutputDir = Senv.Empty_string
          directory."
     end)
 
-let () = Server_doc.protocole ~title:"Batch Protocol" ~readme:"server_batch.md"
+let () = Server_doc.protocol ~title:"Batch Protocol" ~readme:"server_batch.md"
 
 
 (* -------------------------------------------------------------------------- *)
diff --git a/src/plugins/server/server_doc.ml b/src/plugins/server/server_doc.ml
index cac5ea51a263616362cca7ba302a08cebdad6646..917369bf39565beb59ec28240a7c3dcadaa64247 100644
--- a/src/plugins/server/server_doc.ml
+++ b/src/plugins/server/server_doc.ml
@@ -98,11 +98,11 @@ let publish ~page ?name ?(index=[]) ~title
   List.iter (fun entry -> entries := (entry , href) :: !entries) index ;
   page.sections <- section :: page.sections ; href
 
-let protocole ~title ~readme:filename =
+let protocol ~title ~readme:filename =
   let readme = Printf.sprintf "%s/server/%s" (Fc_config.datadir :> string) filename in
   ignore (page `Protocol ~title ~readme ~filename ())
 
-let () = protocole ~title:"Architecture" ~readme:"server.md"
+let () = protocol ~title:"Architecture" ~readme:"server.md"
 
 (* -------------------------------------------------------------------------- *)
 (* --- Package Publication                                                --- *)
diff --git a/src/plugins/server/server_doc.mli b/src/plugins/server/server_doc.mli
index c94c5648bec6e1d7c584478e524919dcfdc6c577..ad0689e6253a7ac810ead5715ac74cf4cf11800c 100644
--- a/src/plugins/server/server_doc.mli
+++ b/src/plugins/server/server_doc.mli
@@ -64,8 +64,8 @@ val publish :
   ?generated:(unit -> Markdown.elements) ->
   unit -> Markdown.href
 
-(** Publish a protocole. *)
-val protocole : title:string -> readme:string -> unit
+(** Publish a protocol. *)
+val protocol : title:string -> readme:string -> unit
 
 (** Publish a package. *)
 val package : Package.packageInfo -> unit
diff --git a/src/plugins/server/server_socket.ml b/src/plugins/server/server_socket.ml
index b0f2e5b03fa47ea1dbd7bad43e8a5b960e564a90..2a6f4ffe766bdd358f68d890a8d739ea780f4308 100644
--- a/src/plugins/server/server_socket.ml
+++ b/src/plugins/server/server_socket.ml
@@ -50,7 +50,7 @@ module SocketSize = Senv.Int
       let help = "Control the size of socket buffers (in ko, default 256)."
     end)
 
-let _ = Server_doc.protocole
+let _ = Server_doc.protocol
     ~title:"Unix Socket Protocol"
     ~readme:"server_socket.md"
 
diff --git a/src/plugins/server/server_zmq.ok.ml b/src/plugins/server/server_zmq.ok.ml
index d19dd35c8d7ee38d02a3eda1147331b929221ae3..d7776bfa0cac875af69ee2f95ad27160a6e18d63 100644
--- a/src/plugins/server/server_zmq.ok.ml
+++ b/src/plugins/server/server_zmq.ok.ml
@@ -58,7 +58,7 @@ module Client = Senv.String
          as first and unique argument."
     end)
 
-let _ = Server_doc.protocole ~title:"ZeroMQ Protocol" ~readme:"server_zmq.md"
+let _ = Server_doc.protocol ~title:"ZeroMQ Protocol" ~readme:"server_zmq.md"
 
 (* -------------------------------------------------------------------------- *)
 (* --- ZMQ Context                                                        --- *)