XEmacs 21.2.28 "Hermes".

[chise/xemacs-chise.git.1] / lisp / loadup.el

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 4c836bb..6190d5e 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -51,7 +51,7 @@
 (call-with-condition-handler 'really-early-error-handler
     #'(lambda ()
 
-       ;; Initializa Installation-string.  We do it before loading
+       ;; Initialize Installation-string.  We do it before loading
        ;; anything so that dumped code can make use of its value.
        (setq Installation-string
              (save-current-buffer
@@ -117,7 +117,7 @@
              ;;(print (format "guessed-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name)))
              nil)))
 
-       (load (concat default-directory "../lisp/dumped-lisp.el"))
+       (load (expand-file-name "../lisp/dumped-lisp.el"))
 
        (let ((files preloaded-file-list)
              file)