diff --git a/R/html.R b/R/html.R
index 45e1bd8..6cdfdba 100644
--- a/R/html.R
+++ b/R/html.R
@@ -42,7 +42,10 @@ versio_canvi_kable <- function(x, titol) {
       out <- paste0(out, ".")
     }
   } else {
-    x$changeset <- paste0("<a href=\"https://osm.org/changeset/", x$changeset, "\">", x$changeset, "</a>")
+    x$changeset <- paste0(
+      "<a href=\"https://osm.org/changeset/", x$changeset, "\">", x$changeset, "</a>",
+      " (<a href=\"https://osmcha.org/changeset/", x$changeset, "\">osmcha</a>)"
+    )
     x$user <- paste0("<a href=\"https://osm.org/user/", x$user, "\">", x$user, "</a>")
     out <- knitr::kable(
       x,