diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 6d827a055a5..b751fc61789 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -891,7 +891,7 @@ Apply the previous patterns after reverting the buffer."
             (let ((face (hi-lock-keyword->face (cdr pattern))))
               (highlight-regexp (or (get-text-property 0 'regexp (car pattern))
                                     (car pattern))
-                                face)
+                                face nil (car pattern))
               (setq hi-lock--unused-faces
                     (remove (face-name face) hi-lock--unused-faces)))))))))