diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 920aae2173..e09df4b3ef 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -161,7 +161,10 @@ to fetch the list of GNU packages over HTTP."
                                 "doc-url"
                                 "download-url")
                           '("doc-url" "language"))))
-       (read-records (fetch %package-list-url #:text? #t))))
+       (let* ((port (fetch %package-list-url #:text? #t))
+              (lst  (read-records port)))
+         (close-port port)
+         lst)))
 
 (define (find-packages regexp)
   "Find GNU packages which satisfy REGEXP."