diff --git a/cli/html.ml b/cli/html.ml
index 3b7c232..e31e228 100644
--- a/cli/html.ml
+++ b/cli/html.ml
@@ -58,7 +58,7 @@ let page htm conversion text =
let opt_kv key value = if String.length value > 0
then "
" ^ key ^ "
" ^ value else "" in
(* let author acc auth = sep_append acc Person.(auth.name ^ " ") in*)
- let authors = (Person.Set.to_string text.authors ^ " ") in
+ let authors = Person.Set.to_string text.authors in
let keywords = str_set "keywords" text in
let header =
let time x = Printf.sprintf {||}
@@ -71,11 +71,11 @@ let page htm conversion text =
"