diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm
index 07f5f1a..ecc0738 100644
--- a/guix-data-service/web/view/html.scm
+++ b/guix-data-service/web/view/html.scm
@@ -736,10 +736,26 @@
target-derivations
systems
targets
- build-statues)
+ build-statuses)
(define query-params
- (string-append "?base_commit=" base-commit
- "&target_commit=" target-commit))
+ (string-append
+ "?"
+ (string-join
+ `(,(string-append "base_commit=" base-commit)
+ ,(string-append "target_commit=" target-commit)
+ ,@(map (lambda (system)
+ (string-append
+ "system=" system))
+ systems)
+ ,@(map (lambda (target)
+ (string-append
+ "target=" target))
+ targets)
+ ,@(map (lambda (build_status)
+ (string-append
+ "build_status=" build_status))
+ build-statuses))
+ "&")))
(layout
#:extra-headers
@@ -847,7 +863,7 @@
(multiple #t)
(name "build_status"))
,@(map (lambda (build-status)
- `(option (@ ,@(if (member build-status build-statues)
+ `(option (@ ,@(if (member build-status build-statuses)
'((selected ""))
'())
(value ,build-status))