diff --git a/asdf.lisp b/asdf.lisp
index 8758b0f223659d6f0418ebeb8685a6612172725a..ea289eb416e8334f7141a878e2787974fdc0914c 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -525,12 +525,14 @@ system."))
       (declare (ignore output))
       (when warnings-p
 	(case (operation-on-warnings operation)
-	  (:warn (warn 'compile-warned :component c :operation operation))
+	  (:warn (warn "COMPILE-FILE warned while performing ~A on ~A"
+		       c operation))
 	  (:error (error 'compile-warned :component c :operation operation))
 	  (:ignore nil)))
       (when failure-p
 	(case (operation-on-failure operation)
-	  (:warn (warn 'compile-failed :component c :operation operation))
+	  (:warn (warn "COMPILE-FILE failed while performing ~A on ~A"
+		       c operation))
 	  (:error (error 'compile-failed :component c :operation operation))
 	  (:ignore nil))))))