diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el
index 9baf85bd5b2..13ee1101a3b 100644
--- a/lisp/vc/vc-dispatcher.el
+++ b/lisp/vc/vc-dispatcher.el
@@ -188,6 +188,7 @@ Another is that undo information is not kept."
 	(olddir default-directory)
         (buf (get-buffer-create buf)))
     (set-buffer buf)
+    ;; If there's some previous async process still running, just kill it.
     (let ((oldproc (get-buffer-process (current-buffer))))
       ;; If we wanted to wait for oldproc to finish before doing
       ;; something, we'd have used vc-eval-after.
@@ -488,8 +489,6 @@ that is inserted into the command line before the filename."
              (squeezed (remq nil flags))
              (inhibit-read-only t)
              (status 0))
-        ;; If there's some previous async process still running,
-        ;; just kill it.
         (when files
           (setq squeezed (nconc squeezed files)))
         (let (;; Since some functions need to parse the output