diff --git a/tests/store.scm b/tests/store.scm
index 3266fa7a82..d77c26192a 100644
--- a/tests/store.scm
+++ b/tests/store.scm
@@ -534,7 +534,8 @@ (define (same? x y)
                  (d (build-expression->derivation
                      %store "foo" `(display ,s)
                      #:guile-for-build
-                     (package-derivation s %bootstrap-guile (%current-system)))))
+                     (package-derivation %store %bootstrap-guile
+                                         (%current-system)))))
             (guard (c ((store-protocol-error? c) #t))
               (build-derivations %store (list d))))))))
    "Here’s a Greek letter: λ."))