diff --git a/code/pathname.lisp b/code/pathname.lisp
index e44ed5b7774192ae03696e257965268268520fc4..06bb46140a9624accdc2ba1a7379fdb36b4add2d 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.64 2004/04/01 16:26:35 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.65 2004/05/18 13:24:42 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -199,7 +199,23 @@
 
 (defun %make-pathname-object (host device directory name type version)
   (if (typep host 'logical-host)
-      (%make-logical-pathname host :unspecific directory name type version)
+      (flet ((upcasify (thing)
+	       (typecase thing
+		 (list
+		  (mapcar #'(lambda (x)
+			      (if (stringp x)
+				  (string-upcase x)
+				  x))
+			  thing))
+		 (simple-base-string
+		  (string-upcase thing))
+		 (t
+		  thing))))
+	(%make-logical-pathname host :unspecific
+				(upcasify directory)
+				(upcasify name)
+				(upcasify type)
+				(upcasify version)))
       (%make-pathname         host device      directory name type version)))
 
 ;;; *LOGICAL-HOSTS* --internal.