diff --git a/guix-data-service/model/git-branch.scm b/guix-data-service/model/git-branch.scm
index 94b00f3..5fe1bb5 100644
--- a/guix-data-service/model/git-branch.scm
+++ b/guix-data-service/model/git-branch.scm
@@ -36,8 +36,8 @@ ORDER BY datetime DESC")
 (define (git-branches-with-repository-details-for-commit conn commit)
   (define query
     "
-SELECT git_repositories.label, git_repositories.url,
-       git_repositories.cgit_url_base,
+SELECT git_repositories.id, git_repositories.label,
+       git_repositories.url, git_repositories.cgit_url_base,
        git_branches.name, git_branches.datetime
 FROM git_branches
 INNER JOIN git_repositories
@@ -45,7 +45,7 @@ INNER JOIN git_repositories
 WHERE git_branches.commit = $1")
 
   (group-list-by-first-n-fields
-   3
+   4
    (exec-query conn query (list commit))))
 
 (define* (most-recent-commits-for-branch conn git-repository-id
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm
index 78a7183..8c34f05 100644
--- a/guix-data-service/web/view/html.scm
+++ b/guix-data-service/web/view/html.scm
@@ -426,8 +426,10 @@
            `((h3 "Git repositories")
              ,@(map
                 (match-lambda
-                  (((label url cgit-url-base) . branches)
-                   `((h4 ,url)
+                  (((id label url cgit-url-base) . branches)
+                   `((a (@ (href ,(string-append
+                                   "/repository/" id)))
+                        (h4 ,url))
                      ,@(map
                         (match-lambda
                           ((name datetime)