diff options
| -rw-r--r-- | gnu/system/image.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm index a4cc2d1ef9..7efbc9fac0 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm @@ -301,7 +301,8 @@ image ~a { }~%" #$genimage-name #$image-type (list #$@partitions-config)))))))) (computed-file "genimage.cfg" builder))) - (let* ((substitutable? (image-substitutable? image)) + (let* ((name (or (image-name image) name)) + (substitutable? (image-substitutable? image)) (builder (with-imported-modules* (let ((inputs '#+(list genimage coreutils findutils)) |