diff --git a/guix/ci.scm b/guix/ci.scm
index 44b7673a91..f429bf198f 100644
--- a/guix/ci.scm
+++ b/guix/ci.scm
@@ -50,6 +50,7 @@ (define-module (guix ci)
             %query-limit
             queued-builds
             latest-builds
+            evaluation
             latest-evaluations
             evaluations-for-commit))
 
@@ -140,6 +141,13 @@ (define* (option name value #:optional (->string identity))
     ;; 'latestbuilds', but Cuirass does.
     (map json->build (vector->list latest))))
 
+(define (evaluation url evaluation)
+  "Return the given EVALUATION performed by the CI server at URL."
+  (let ((evaluation (json-fetch
+                     (string-append url "/api/evaluation?id="
+                                    (number->string evaluation)))))
+    (json->evaluation evaluation)))
+
 (define* (latest-evaluations url #:optional (limit %query-limit))
   "Return the latest evaluations performed by the CI server at URL."
   (map json->evaluation