diff --git a/compiler/ir1final.lisp b/compiler/ir1final.lisp
index ab73b578d2e8297c89edd5f904e740fbf8c9b439..f95f31d252600422357e65fc92c8a1cecad5d1a4 100644
--- a/compiler/ir1final.lisp
+++ b/compiler/ir1final.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/ir1final.lisp,v 1.13 1991/03/18 13:07:07 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1final.lisp,v 1.14 1991/10/03 18:31:20 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -32,11 +32,12 @@
 	      (not (function-info-p (combination-kind node))))
     (let ((*compiler-error-context* node))
       (dolist (failure failures)
-	(let ((what (cdr failure)))
+	(let ((what (cdr failure))
+	      (note (transform-note (car failure))))
 	  (cond
 	   ((consp what)
-	    (compiler-note "Unable to optimize because:~%~6T~?"
-			   (first what) (rest what)))
+	    (compiler-note "Unable to ~A because:~%~6T~?"
+			   note (first what) (rest what)))
 	   ((valid-function-use node what
 				:argument-test #'types-intersect
 				:result-test #'values-types-intersect)
@@ -48,9 +49,9 @@
 				    :warning-function #'frob
 				    :error-function #'frob))
 	      
-	      (compiler-note "Unable to optimize due to type uncertainty:~@
+	      (compiler-note "Unable to ~A due to type uncertainty:~@
 	                      ~{~6T~?~^~&~}"
-			     (messages))))))))))
+			     note (messages))))))))))
 
 
 ;;; FINALIZE-XEP-DEFINITION  --  Internal