diff --git a/code/save.lisp b/code/save.lisp
index 1134a85856957b0300838c5df519b6625dc97844..de8f325285cf14e0007acbdfec82155e31924124 100644
--- a/code/save.lisp
+++ b/code/save.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.35 1998/05/04 00:05:54 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.36 1998/06/24 20:30:36 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -163,8 +163,8 @@
 	    (with-simple-restart (abort "Skip remaining initializations.")
 	      (catch 'top-level-catcher
 		(reinit)
-		(dolist (f *after-save-initializations*) (funcall f))
 		(environment-init)
+		(dolist (f *after-save-initializations*) (funcall f))
 		(when process-command-line
 		  (ext::process-command-strings))
 		(setf *editor-lisp-p* nil)