diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 1966ad6d485b7d91dc311b93ff43ee85591e0c6e..c3ce9007778af11f397f78a0b37e100f45c8657b 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -734,8 +734,10 @@ by PRODUCT-SPECS."
                  (log-message "fetching input '~a' of spec '~a'"
                               (assq-ref input #:name)
                               (assq-ref spec #:name))
-                 (fetch-input store input
-                              #:writable-copy? (compile? input)))))
+                 ;; XXX: Work around: https://issues.guix.gnu.org/44742.
+                 (parameterize ((current-error-port (%make-void-port "rw+")))
+                   (fetch-input store input
+                                #:writable-copy? (compile? input))))))
            inputs))
          (results (map %non-blocking thunks)))
     (map (lambda (checkout)