diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 4eb968a49bf6b309fa4246467d6d464b0d8c340a..7e7c37eac4c3a67e6076c945f4c60a7d0640d18f 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -585,14 +585,8 @@ (define (store-item->manifest-entry item)
 (define (package->manifest-entry* package output)
   "Like 'package->manifest-entry', but attach PACKAGE provenance meta-data to
 the resulting manifest entry."
-  (define (provenance-properties package)
-    (match (package-provenance package)
-      (#f   '())
-      (sexp `((provenance ,@sexp)))))
-
-  (package->manifest-entry package output
-                           #:properties (provenance-properties package)))
-
+  (manifest-entry-with-provenance
+   (package->manifest-entry package output)))
 
 (define (options->installable opts manifest transaction)
   "Given MANIFEST, the current manifest, and OPTS, the result of 'args-fold',