diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index b653138f2c..8cb4e6d2cc 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -610,7 +610,7 @@ (define str (string-join names "-"))
                                 #$profile
                                 #:repository tag
                                 #:database #+database
-                                #:system (or #$target (utsname:machine (uname)))
+                                #:system (or #$target %host-type)
                                 #:environment environment
                                 #:entry-point
                                 #$(and entry-point