diff --git a/guix/build/vm.scm b/guix/build/vm.scm
index e3f6d27ee7..3c51ff8f34 100644
--- a/guix/build/vm.scm
+++ b/guix/build/vm.scm
@@ -94,8 +94,7 @@ the #:references-graphs parameter of 'derivation'."
     (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))))