diff --git a/guile/list-gitlab-merge-requests.scm b/guile/list-gitlab-merge-requests.scm
index 8a5525f..b93641e 100644
--- a/guile/list-gitlab-merge-requests.scm
+++ b/guile/list-gitlab-merge-requests.scm
@@ -70,12 +70,12 @@
       (close-port body-port)
       (vector->list body))))
 
-(define (field-eq? field-name value)
+(define (field-equal? field-name value)
   (lambda (alist)
     (equal? (assoc-ref alist field-name) value)))
 
 (define (main args)
   (for-each (cut format #t "~a~%" <>)
             (map (cut assoc-ref <> "web_url")
-                 (filter (field-eq? "title" "Build: add pip-audit to pipeline")
+                 (filter (field-equal? "title" "Build: add pip-audit to pipeline")
                          (list-merge-requests '((state . "opened") (author_username . "ray33")))))))