diff --git a/code/pathname.lisp b/code/pathname.lisp
index 2301603aef50595cc1afcd09df5c6f45ad606764..d74d384a9048412352299ef73eb5a6c80cdb5128 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.33 1998/02/09 15:19:39 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.34 1998/12/19 16:09:14 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1458,7 +1458,10 @@ a host-structure or string."
 			   *logical-hosts*)))
        (if (or found (not errorp))
 	   found
-	   (error "Logical host not yet defined: ~S" thing))))
+	   (error 'simple-file-error
+		  :pathname thing
+		  :format-control "Logical host not yet defined: ~S"
+		  :format-arguments (list thing)))))
     (logical-host thing)))
 
 
@@ -1795,7 +1798,10 @@ a host-structure or string."
   (typecase pathname
     (logical-pathname
      (dolist (x (logical-host-canon-transls (%pathname-host pathname))
-		(error "No translation for ~S" pathname))
+		(error 'simple-file-error
+		       :pathname pathname
+		       :format-control "No translation for ~S"
+		       :format-arguments (list pathname)))
        (destructuring-bind (from to) x
 	 (when (pathname-match-p pathname from)
 	   (return (translate-logical-pathname