diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp
index 2760bd4acfa2f67f94b73b9858cca246df8b7705..c9cc50329a49d6eb55de620c8d35132c5c6ac944 100644
--- a/compiler/ir1util.lisp
+++ b/compiler/ir1util.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.49 1991/12/14 05:27:37 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.50 1992/01/21 15:54:30 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1438,7 +1438,8 @@
   (context nil :type list)
   ;;
   ;; The FILE-INFO-NAME for the relevant FILE-INFO.
-  (file-name (required-argument) :type (or pathname (member :lisp :stream)))
+  (file-name (required-argument)
+	     :type (or simple-string (member :lisp :stream)))
   ;;
   ;; The file position at which the top-level form starts, if applicable.
   (file-position nil :type (or index null))
@@ -1675,8 +1676,7 @@
 	  (funcall *compiler-notification-function* severity 
 		   (format nil "~{~{~S~^ ~}~^ => ~}"
 			   (compiler-error-context-context context))
-		   (when (typep name 'pathname)
-		     (namestring name))
+		   (when (stringp name) name)
 		   (compiler-error-context-file-position context)))
 	(funcall *compiler-notification-function* severity nil nil nil)))
   (undefined-value))
@@ -1727,10 +1727,10 @@
 
 	(unless (and last
 		     (equal file (compiler-error-context-file-name last)))
-	  (when (typep file 'pathname)
+	  (when (stringp file)
 	    (note-message-repeats)
 	    (setq last nil)
-	    (format stream "~2&File: ~A~%" (namestring file))))
+	    (format stream "~2&File: ~A~%" file)))
 	
 	(unless (and last
 		     (equal in (compiler-error-context-context last)))