diff --git a/guix/derivations.scm b/guix/derivations.scm
index 15faf59616aa503cc4cf5c6463fdaa4ab8bacc8c..211ecc6f9617e96e66a0f0acd00b67e81e710556 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -984,7 +984,8 @@ (define-record-type* <graft> graft make-graft
                       (default "out")))
 
 (define* (graft-derivation store name drv grafts
-                           #:key (guile (%guile-for-build)))
+                           #:key (guile (%guile-for-build))
+                           (system (%current-system)))
   "Return a derivation called NAME, based on DRV but with all the GRAFTS
 applied."
   ;; XXX: Someday rewrite using gexps.
@@ -1035,6 +1036,7 @@ (define add-label
      (let ((sources (zip sources source-outputs))
            (targets (zip targets target-outputs)))
        (build-expression->derivation store name build
+                                     #:system system
                                      #:guile-for-build guile
                                      #:modules '((guix build graft)
                                                  (guix build utils))