diff --git a/hydra.el b/hydra.el
index 1739dd7..6d36473 100644
--- a/hydra.el
+++ b/hydra.el
@@ -454,7 +454,7 @@ Remove :color key. And sort the plist alphabetically."
            (alist2 (cl-sort alist1 #'string<
                             :key (lambda (x) (symbol-name (car x))))))
       (append (list (car body) (cadr body))
-              (mapcan (lambda (x) (list (car x) (cdr x))) alist2)))))
+              (cl-mapcan (lambda (x) (list (car x) (cdr x))) alist2)))))
 
 (defalias 'hydra--imf #'list)