diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 5312a55a258..49b79de5851 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1432,7 +1432,7 @@ to `compilation-error-regexp-alist' if RULES is nil."
               (let ((this-type (if (consp type)
                                    (compilation-type type)
                                  (or type 2))))
-                (compilation--note-type type)
+                (compilation--note-type this-type)
 
                 (compilation--put-prop
                  file 'font-lock-face