diff --git a/code/pathname.lisp b/code/pathname.lisp
index b320f4f128096e4e804dae9eef0214eff0bf9a09..3a8c046ad74e2d98f78f63b00d0aa0c8a32e657f 100644
--- a/code/pathname.lisp
+++ b/code/pathname.lisp
@@ -4,7 +4,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.88 2009/08/13 19:23:42 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.89 2010/01/31 16:10:35 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1406,8 +1406,7 @@ a host-structure or string."
 ;;;    Called by TRANSLATE-PATHNAME on the directory components of its argument
 ;;; pathanames to produce the result directory component.  If any leaves the
 ;;; directory NIL, we return the source directory.  The :RELATIVE or :ABSOLUTE
-;;; is taken from the source directory, except if TO is :ABSOLUTE, in which
-;;; case the result will be :ABSOLUTE.
+;;; is taken from the TO directory.
 ;;;
 (defun translate-directories (source from to diddle-case)
   (if (not (and source to from))
@@ -1434,9 +1433,7 @@ a host-structure or string."
 			 (res to-part)))))
 	      (res))))
       (collect ((res))
-	(res (if (eq (first to) :absolute)
-		 :absolute
-		 (first source)))
+	(res (first to))
 	(let ((subs-left (compute-directory-substitutions (rest source)
 							  (rest from))))
 	  (dolist (to-part (rest to))