diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm
index 22c9554705..bce4c4b9d4 100644
--- a/gnu/tests/install.scm
+++ b/gnu/tests/install.scm
@@ -267,7 +267,7 @@ (define marionette
 
 (define* (qemu-command/writable-image image #:key (memory-size 256))
   "Return as a monadic value the command to run QEMU on a writable copy of
-IMAGE, a disk image.  The QEMU VM is has access to MEMORY-SIZE MiB of RAM."
+IMAGE, a disk image.  The QEMU VM has access to MEMORY-SIZE MiB of RAM."
   (mlet %store-monad ((system (current-system)))
     (return #~(let ((image #$image))
                 ;; First we need a writable copy of the image.