1 files changed, 1 insertions, 3 deletions
diff --git a/guix/grafts.scm b/guix/grafts.scm
index a1f7d8801a..339f273b76 100644
--- a/guix/grafts.scm
+++ b/guix/grafts.scm
@@ -87,9 +87,7 @@ applied."
        (map derivation-output-path outputs))))
 
   (define output-names
-    (match (derivation-outputs drv)
-      (((names . outputs) ...)
-       names)))
+    (derivation-output-names drv))
 
   (define build
     `(begin