diff --git a/src/web/pages_voter.ml b/src/web/pages_voter.ml
index cb6ed0c4d8eaaf46698b4a8712d5d4e45c62da05..a03a220c4153261e40fd53d5a9750524b34bf88f 100644
--- a/src/web/pages_voter.ml
+++ b/src/web/pages_voter.ml
@@ -882,9 +882,12 @@ let majority_judgment q r =
           ]
       ) explicit_winners
   in
-  let spoiled = "data:application/json," ^ string_of_mj_ballots r.mj_spoiled in
-  let spoiled = "<a href=\"" ^ spoiled ^ "\">" ^ s_ "Spoiled ballots" ^ "</a>" in
-  let spoiled = Unsafe.data spoiled in
+  let spoiled () = "data:application/json," ^ string_of_mj_ballots r.mj_spoiled in
+  let spoiled = uri_of_string spoiled in
+  let spoiled =
+    Eliom_content.Html.F.Raw.a ~a:[a_href spoiled]
+      [txt (s_ "Spoiled ballots")]
+  in
   let content =
     [
       div [