diff --git a/counsel-projectile.el b/counsel-projectile.el
index 65d15cf..048f2a8 100644
--- a/counsel-projectile.el
+++ b/counsel-projectile.el
@@ -116,7 +116,7 @@ actions (a key, a function, and a name for each action)."
                     ((stringp action-item)
                      (lambda (action)
                        (member action-item
-                               (list (car action) (caddr action))))))
+                               (list (car action) (cl-caddr action))))))
                    (cdr action-list)))
       (when index
         (setq index (1+ index))))
@@ -225,7 +225,7 @@ If anything goes wrong, throw an error and do not modify ACTION-VAR."
            (setq action-list (cl-loop for a in action-list
                                       for count from 0
                                       if (= count index)
-                                      collect (list (car a) fun (caddr a))
+                                      collect (list (car a) fun (cl-caddr a))
                                       else
                                       collect a))))
         (`(setname ,action-item ,name)