diff --git a/src/code/lispinit.lisp b/src/code/lispinit.lisp
index 5d8b3de283804d04ef936918c820b57c0f19d6bc..67459d17e5c57118120d9f45554a97f42490068a 100644
--- a/src/code/lispinit.lisp
+++ b/src/code/lispinit.lisp
@@ -308,8 +308,7 @@
 ;;; in Unwind-Protects will get executed.
 
 (declaim (special *lisp-initialization-functions*
-		  *load-time-values*
-		  *enable-darwin-path-normalization*))
+		  *load-time-values*))
 
 (eval-when (compile)
   (defmacro print-and-call (name)
@@ -345,7 +344,6 @@
   (setf *type-system-initialized* nil)
   (setf *break-on-signals* nil)
   (setf unix::*filename-encoding* :null)
-  (setf *enable-darwin-path-normalization* nil)
   #+gengc (setf conditions::*handler-clusters* nil)
   (setq intl::*default-domain* "cmucl")
   (setq intl::*locale* "C")
diff --git a/src/code/save.lisp b/src/code/save.lisp
index f6c27a728530cf006478f1276998720a59aa2ede..9290113cbf471b6098b75eeb9e00149afc176425 100644
--- a/src/code/save.lisp
+++ b/src/code/save.lisp
@@ -316,17 +316,6 @@
 	     ;; we've possibly changed the environment variables and
 	     ;; pathnames.
 	     (environment-init)
-	     #+darwin
-	     (progn
-	       ;; Get some unicode stuff needed for decomposing strings.
-	       ;; This is needed on Darwin to normalize pathname
-	       ;; objects, which needs this information.  If we don't,
-	       ;; we'll load the information at runtime when creating
-	       ;; the path to "unidata.dat", which then calls decompose
-	       ;; again, and so on.
-	       (lisp::load-decomp)
-	       (lisp::load-combining)
-	       (setf *enable-darwin-path-normalization* t))
 	     ;; Set the locale for lisp
 	     (intl::setlocale)
 	     (ext::process-command-strings process-command-line)