diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 859a6c62f..2c41c50c3 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -412,7 +412,7 @@ Implements `define-error' for older emacsen."
     (put name 'error-conditions
 	 (copy-sequence (cons name (get 'error 'error-conditions))))))
 
-(unless (fboundp 'string-prefix-p)
+(unless (fboundp 'string-suffix-p)
   ;; From Emacs subr.el.
   (defun string-prefix-p (prefix string &optional ignore-case)
     "Return non-nil if PREFIX is a prefix of STRING.