diff options
| -rw-r--r-- | gnu/system/image.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm index 7efbc9fac0..36f56e237d 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm @@ -301,7 +301,10 @@ image ~a { }~%" #$genimage-name #$image-type (list #$@partitions-config)))))))) (computed-file "genimage.cfg" builder))) - (let* ((name (or (image-name image) name)) + (let* ((image-name (image-name image)) + (name (if image-name + (symbol->string image-name) + name)) (substitutable? (image-substitutable? image)) (builder (with-imported-modules* |