diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 6aa491a274..67794ff6e6 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -128,7 +128,7 @@ system.")
   (define (->job name drv)
     (let ((name (symbol-append name (string->symbol ".")
                                (string->symbol system))))
-      `(,name . ,(->alist drv))))
+      `(,name . ,(cut ->alist drv))))
 
   (if (string=? system "x86_64-linux")
       (let* ((dir  (dirname (assoc-ref (current-source-location) 'filename)))