diff --git a/lisp/org/org-macs.el b/lisp/org/org-macs.el
index 583633605f..5ab069e6a2 100644
--- a/lisp/org/org-macs.el
+++ b/lisp/org/org-macs.el
@@ -108,7 +108,7 @@ org-string-display
 		       ;; string (face...).
 		       (let* ((display (plist-get props 'display))
 			      (value (if (stringp display) display
-				       (cl-some #'stringp display))))
+                                       (cl-find-if #'stringp display))))
 			 (when value
 			   (apply #'propertize
 				  ;; Displayed string could contain