diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 39ce5bb6ef4d4ca4a844d18d0590a1bbcc48bd01..7d0ffd971ee39c00a52e2f206411d3a8d14995d1 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -236,7 +236,7 @@ (define* (qemu-image #:key
           (let ((graphs '#$(match inputs
                              (((names . _) ...)
                               names))))
-            (initialize-hard-disk "/dev/sda"
+            (initialize-hard-disk "/dev/vda"
                                   #:grub.cfg #$grub-configuration
                                   #:closures graphs
                                   #:copy-closures? #$copy-inputs?
diff --git a/guix/build/vm.scm b/guix/build/vm.scm
index 4de536abb45bb2b06ba82b8ec6517315ab4ebfba..e559542f0a305e22f8726f6916babf93c662b2d3 100644
--- a/guix/build/vm.scm
+++ b/guix/build/vm.scm
@@ -96,7 +96,8 @@ (define image-file
                   "-append" (string-append "console=ttyS0 --load="
                                            builder)
                   (if make-disk-image?
-                      `("-hda" ,image-file)
+                      `("-drive" ,(string-append "file=" image-file
+                                                 ",if=virtio"))
                       '())))
     (error "qemu failed" qemu))