diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 509e2551914..086aa98bb0b 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2077,7 +2077,8 @@ mapped to the closest extremal position).
 If FUNCTION was not advised already, its advice info will be
 initialized.  Redefining a piece of advice whose name is part of
 the cache-id will clear the cache."
-  (when (subr-primitive-p (symbol-function function))
+  (when (and (featurep 'nativecomp)
+             (subr-primitive-p (symbol-function function)))
     (comp-subr-trampoline-install function))
   (cond ((not (ad-is-advised function))
          (ad-initialize-advice-info function)