diff --git a/code/pathname.lisp b/code/pathname.lisp
index e185147f66f819b35421a9bce77f0124b22bc423..f8c4eecdf9420d0d1cd46d8a2d4d3403acb17c13 100644
--- a/code/pathname.lisp
+++ b/code/pathname.lisp
@@ -6,7 +6,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.3 1991/12/18 22:35:03 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.4 1991/12/20 02:07:12 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -838,7 +838,13 @@
   ;;
   ;; The list of expansions for this search-list.  Each expansion is the list
   ;; of directory components to use in place of this search-list.
-  (expansions nil :type list))
+  (%expansions (%primitive c:make-value-cell nil)));  :type list))
+
+(defun search-list-expansions (x)
+  (%primitive c:value-cell-ref (search-list-%expansions x)))
+
+(defun (setf search-list-expansions) (val x)
+  (%primitive c:value-cell-set (search-list-%expansions x) val))
 
 (defun %print-search-list (sl stream depth)
   (declare (ignore depth))