diff --git a/src/template.ml b/src/template.ml
index abb300f..54714cb 100644
--- a/src/template.ml
+++ b/src/template.ml
@@ -86,9 +86,19 @@ let generic request ~title:title_txt ~scripts ~styles ~h1 content =
       ; txt_anylang " | "
       ; a ~a:[ a_href Sitemap.contact ] [ txt ~fr:"Contact" ~en:"Contact" ]
       ; txt_anylang " | "
-      ; a ~a:[ a_href @@ Sitemap.set_english current_page ] [ txt_anylang "en" ]
+      ; ( match Lang.of_request request with
+        | English -> txt_anylang "en"
+        | French ->
+          a
+            ~a:[ a_href @@ Sitemap.set_english current_page ]
+            [ txt_anylang "en" ] )
       ; txt_anylang " / "
-      ; a ~a:[ a_href @@ Sitemap.set_french current_page ] [ txt_anylang "fr" ]
+      ; ( match Lang.of_request request with
+        | English ->
+          a
+            ~a:[ a_href @@ Sitemap.set_french current_page ]
+            [ txt_anylang "fr" ]
+        | French -> txt_anylang "fr" )
       ]
   in