diff --git a/guix/store.scm b/guix/store.scm
index 4c069b2963..45c555b12c 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -488,7 +488,7 @@ (define socket
                            `(("build-timeout" . ,(number->string timeout)))
                            '())
                      ("substitute-urls" . ,(string-join substitute-urls)))))
-        (send (string-pairs (pk 'pairs pairs)))))
+        (send (string-pairs pairs))))
     (let loop ((done? (process-stderr server)))
       (or done? (process-stderr server)))))