diff --git a/emacs/guix-command.el b/emacs/guix-command.el
index b679ad9b1e..3ae779185e 100644
--- a/emacs/guix-command.el
+++ b/emacs/guix-command.el
@@ -249,7 +249,8 @@ to be modified."
 
 (guix-command-define-argument-improver
     guix-command-improve-system-argument
-  '(("vm-image"    :char ?V)
+  '(("disk-image"  :char ?D)
+    ("vm-image"    :char ?V)
     ("--on-error"  :char ?E)
     ("--no-grub"   :char ?g)
     ("--full-boot" :char ?b)))