diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 60ae38f6d8..e6e6917ecd 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -445,8 +445,8 @@ (define (partition->config image partition)
     (define (genimage-type-options image-type image)
       (cond
        ((equal? image-type "hdimage")
-        (format #f "~%~/~/gpt = ~a~%~/"
-                (if (gpt-image? image) "true" "false")))
+        (format #f "~%~/~/partition-table-type = \"~a\"~%~/"
+                (image-partition-table-type image)))
        (else "")))
 
     (let* ((format (image-format image))