(command-line): Fix last change.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd45314b2af..5eb90df9ac7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-30  Eli Zaretskii  <eliz@gnu.org>
+
+        * files.el (auto-save-file-name-transforms): Fix last change.
+
+        * startup.el (command-line): Fix last change.
+
 2002-03-29  Richard M. Stallman  <rms@gnu.org>
 
         * subr.el (play-sound-file): Moved to simple.el.
diff --git a/lisp/startup.el b/lisp/startup.el
index bff519156c3..2a3ae710c6a 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -657,8 +657,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
         (list (list "\\`/[^/]*:\\(.+/\\)*\\(.*\\)"
                     ;; Don't put "\\2" inside expand-file-name, since
                     ;; it will be transformed to "/2" on DOS/Windows.
-                    (concat (expand-file-name temporary-file-directory)
-                            "\\2"))))
+                    (concat temporary-file-directory "\\2"))))
 
   ;; See if we should import version-control from the environment variable.
   (let ((vc (getenv "VERSION_CONTROL")))