diff options
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/image.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm index df7fa2c3905..7be6a796880 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm @@ -674,6 +674,10 @@ used in the image. " (uuid-bytevector (partition-uuid partition))))) (let* ((os (image-operating-system image)) + (image-name (image-name image)) + (name (if image-name + (symbol->string image-name) + name)) (bootloader (bootloader-package bootloader)) (compression? (image-compression? image)) (substitutable? (image-substitutable? image)) |