diff --git a/code/extfmts.lisp b/code/extfmts.lisp
index 606793ef3365629036d88ede49403659014a2915..f0a4e771a0d4e5479456c33a34dee7ea6b447601 100644
--- a/code/extfmts.lisp
+++ b/code/extfmts.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/extfmts.lisp,v 1.3 2008/06/19 01:41:34 rtoy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/extfmts.lisp,v 1.4 2008/06/19 20:58:05 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -111,7 +111,7 @@
 
 (defun load-external-format-aliases ()
   (let ((*package* (find-package "KEYWORD")))
-    (with-open-file (stm "library:ext-formats/aliases" :if-does-not-exist nil)
+    (with-open-file (stm "ext-formats:aliases" :if-does-not-exist nil)
       (when stm
         (do ((alias (read stm nil stm) (read stm nil stm))
              (value (read stm nil stm) (read stm nil stm)))
@@ -124,10 +124,6 @@
                     alias value)))))))
 
 (defun %find-external-format (name)
-  #+(or)
-  (unless (ext:search-list-defined-p "ef:")
-    (setf (ext:search-list "ef:") '("library:ef/")))
-
   (when (zerop (hash-table-count *external-format-aliases*))
     (setf (gethash :latin1 *external-format-aliases*) :iso8859-1)
     (setf (gethash :latin-1 *external-format-aliases*) :iso8859-1)
@@ -145,7 +141,7 @@
   (or (gethash name *external-formats*)
       (and (let ((*package* (find-package "STREAM"))
 		 (lisp::*enable-package-locked-errors* nil))
-             (load (format nil "library:ext-formats/~(~A~)" name)
+             (load (format nil "ext-formats:~(~A~)" name)
 		   :if-does-not-exist nil))
            (gethash name *external-formats*))))
 
diff --git a/code/save.lisp b/code/save.lisp
index e5650dee3911d187f8a6266267dd7aa8342a9307..c2249c799ae857c19c7af83f98f8963a883dffeb 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.56 2007/07/21 21:12:18 fgilham Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.57 2008/06/19 20:58:05 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -113,7 +113,9 @@
 	     '("/usr/local/lib/cmucl/lib/"))))
   (setf (search-list "modules:") '("library:subsystems/"))
   (setf (search-list "ld-library-path:")
-	(parse-unix-search-list :ld_library_path)))
+	(parse-unix-search-list :ld_library_path))
+  (setf (search-list "ext-formats:")
+	'("library:ext-formats/")))