diff --git a/guix/build/vm.scm b/guix/build/vm.scm
index e3f6d27ee70827be715b74f85dcee7c3abad2b25..3c51ff8f34300b31900d0b8234fc99b716c546dd 100644
--- a/guix/build/vm.scm
+++ b/guix/build/vm.scm
@@ -94,8 +94,7 @@ (define* (load-in-linux-vm builder
     (error "qemu failed" qemu))
 
   (if make-disk-image?
-      (copy-file "image.qcow2"            ; XXX: who mkdir'd OUTPUT?
-                 output)
+      (copy-file "image.qcow2" output)
       (begin
         (mkdir output)
         (copy-recursively "xchg" output))))