# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 815117192 0
# Node ID c8b89eac76b2f911e755776aa68b9191ea47a98c
# Parent  2cd15d90fec620b8d3fc993bf2c0c173c1e529d2
Fix previous change.

diff -r 2cd15d90fec6 -r c8b89eac76b2 lisp/loadup.el
--- a/lisp/loadup.el	Tue Oct 31 05:22:28 1995 +0000
+++ b/lisp/loadup.el	Tue Oct 31 05:26:32 1995 +0000
@@ -153,7 +153,7 @@
     (let* ((base (concat "emacs-" emacs-version "."))
 	   (files (file-name-all-completions base default-directory))
 	   (versions (mapcar (function (lambda (name)
-					 (string-to-int (substring name (1+ (length base))))))
+					 (string-to-int (substring name (length base)))))
 			     files)))
       (setq emacs-version (format "%s.%d"
 				  emacs-version