elisp - アドバイスメッセージが機能しない

Question

(defun my-message (format-string &rest args)
  (apply 'message
         (concat "my-message: " format-string)
         args))

(my-message "abc %d" 123)
;; ==> "my-message: abc 123"
(message "abc %d" 123)
;; ==> "abc 123"

(advice-add 'message :around 'my-message)
;;(advice-remove 'message 'my-message)

advice-add～の後message、エラーWrong type argument: sequencep, #<subr message>が通知されます。何が問題ですか？