diff --git a/lisp/org-bbdb.el b/lisp/org-bbdb.el
index b76822bcd..22939a3c1 100644
--- a/lisp/org-bbdb.el
+++ b/lisp/org-bbdb.el
@@ -441,13 +441,14 @@ This is used by Org to re-create the anniversary hash table."
       ;; to support older versions of emacs, this can be done with a cl-mapcan;
       ;; for now, we use the (apply #'nconc ...) method for compatibility.
       (apply #'nconc
-	     (lambda (d)
-		   (let ((date d))
-		     ;; Rebind 'date' so that org-bbdb-anniversaries will be
-		     ;; fooled into giving us the list for the given date
-		     ;; and then annotate the descriptions for that date.
-		     (funcall annotate-descriptions d (org-bbdb-anniversaries))))
-		 dates))))
+	     (mapcar
+	      (lambda (d)
+		(let ((date d))
+		  ;; Rebind 'date' so that org-bbdb-anniversaries will be
+		  ;; fooled into giving us the list for the given date
+		  ;; and then annotate the descriptions for that date.
+		  (funcall annotate-descriptions d (org-bbdb-anniversaries))))
+	      dates)))))
 
 (defun org-bbdb-complete-link ()
   "Read a bbdb link with name completion."