1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 4588c8e8bcf..d6926665ee6 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -267,7 +267,7 @@ with a prefix argument."
       ;;The caller may want to flag some of these files for deletion.
       (let* ((base-versions
               (concat (file-name-nondirectory fn) ".~"))
-             (bv-length (length base-versions))
+             (backup-extract-version-start (length base-versions))
              (possibilities (file-name-all-completions
                              base-versions
                              (file-name-directory fn)))