--- a/lisp/dumped-lisp.el	Mon Oct 18 23:03:27 2010 +0900
+++ b/lisp/dumped-lisp.el	Mon Oct 18 23:21:23 2010 +0900
@@ -23,28 +23,19 @@
 
        "backquote" 		; needed for defsubst etc.
        "bytecomp-runtime"	; define defsubst
-       "find-paths"
-       "packages"		; Bootstrap run-time lisp environment
-       "setup-paths"
-
-       ;; use custom-declare-variable-early, not defcustom, in these files
-
        "subr" 			; load the most basic Lisp functions
+       "cl"
+       "cl-extra"	; also loads cl-macs if we're running interpreted.
+       "cl-seq"
        "post-gc"
-       "replace" 		; match-string used in version.el.
-
        "version"
-
-       "cl"
-       "cl-extra"
-       "cl-seq"
+       "custom"		; Before the world so everything can be customized
+       "cus-start"	; for customization of builtin variables
+       "find-paths"
+       "packages"
+       "setup-paths"
+       "replace"
        "widget"
-       "custom"		; Before the world so everything can be
-			; customized
-       "cus-start"	; for customization of builtin variables
-
-       ;; OK, you can use defcustom from here on
-
        "cmdloop"
        "keymap"
        "syntax"
@@ -300,7 +291,4 @@
 	))
 
 (setq preloaded-file-list
-      (apply #'nconc
-	     (mapcar #'(lambda (x)
-			 (if (listp x) x (list x)))
-		     preloaded-file-list)))
+      (mapcan #'(lambda (x) (if (listp x) x (list x))) preloaded-file-list))