diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm
index 64ca38e..6995dac 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -64,7 +64,8 @@
              (force-output output-port))
            #f ; fetch one character
            (lambda ()
-             (close-port output-port))
+             ;; close port
+             #f)
            #f) ; number of characters that can be read
    "w"))