diff --git a/guix-data-service/web/compare/controller.scm b/guix-data-service/web/compare/controller.scm
index 636de67..17b5550 100644
--- a/guix-data-service/web/compare/controller.scm
+++ b/guix-data-service/web/compare/controller.scm
@@ -525,6 +525,9 @@
                   query-parameters
                   (parallel-via-thread-pool-channel
                    (with-thread-postgresql-connection valid-systems))
+                  (valid-targets->options
+                   (parallel-via-thread-pool-channel
+                    (with-thread-postgresql-connection valid-targets)))
                   build-status-strings
                   '()))))
 
@@ -564,6 +567,9 @@
                             query-parameters
                             (parallel-via-thread-pool-channel
                              (with-thread-postgresql-connection valid-systems))
+                            (valid-targets->options
+                             (parallel-via-thread-pool-channel
+                              (with-thread-postgresql-connection valid-targets)))
                             build-status-strings
                             derivation-changes)
                     #:extra-headers http-headers-for-unchanging-content))))))))))
diff --git a/guix-data-service/web/compare/html.scm b/guix-data-service/web/compare/html.scm
index 8fbcae7..8b35290 100644
--- a/guix-data-service/web/compare/html.scm
+++ b/guix-data-service/web/compare/html.scm
@@ -600,6 +600,7 @@
 
 (define (compare/derivations query-parameters
                              valid-systems
+                             valid-targets
                              valid-build-statuses
                              derivation-changes)
   (layout
@@ -646,7 +647,7 @@
             #:font-family "monospace")
           ,(form-horizontal-control
             "Target" query-parameters
-            #:options valid-systems
+            #:options valid-targets
             #:help-text "Only include derivations that are build for this system."
             #:font-family "monospace")
           (div (@ (class "form-group form-group-lg"))