diff --git a/lisp/org/ob-core.el b/lisp/org/ob-core.el
index 88d2f26df05..7d5677da5da 100644
--- a/lisp/org/ob-core.el
+++ b/lisp/org/ob-core.el
@@ -1822,7 +1822,7 @@ HEADER-ARGUMENTS is an alist of all the arguments."
       (cons :colname-names (or (cdr (assq :colname-names params))
 			       (cadr  vars-and-names)))
       (cons :rowname-names (or (cdr (assq :rowname-names params))
-			       (cl-caddr vars-and-names)))
+                               (caddr vars-and-names)))
       (cons :result-params result-params)
       (cons :result-type  (cond ((member "output" result-params) 'output)
 				((member "value" result-params) 'value)
diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index 8fdd998fc52..50dbb6dbed6 100644
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -4603,10 +4603,10 @@ START-DAY is an absolute time value."
 	((eq span 'fortnight) 14)
 	((eq span 'month)
 	 (let ((date (calendar-gregorian-from-absolute start-day)))
-	   (calendar-last-day-of-month (car date) (cl-caddr date))))
+           (calendar-last-day-of-month (car date) (caddr date))))
 	((eq span 'year)
 	 (let ((date (calendar-gregorian-from-absolute start-day)))
-	   (if (calendar-leap-year-p (cl-caddr date)) 366 365)))))
+           (if (calendar-leap-year-p (caddr date)) 366 365)))))
 
 (defun org-agenda-span-name (span)
   "Return a SPAN name."
diff --git a/lisp/org/org-capture.el b/lisp/org/org-capture.el
index 9c4a4619bbd..0720ad53cc7 100644
--- a/lisp/org/org-capture.el
+++ b/lisp/org/org-capture.el
@@ -1100,7 +1100,7 @@ Store them in the capture property list."
                     (org-encode-time
                      (apply #'list
                             0 0 org-extend-today-until
-                            (cl-cdddr (decode-time prompt-time))))))
+                            (cdddr (decode-time prompt-time))))))
 		 (time-to-days prompt-time)))
 	      (t
 	       ;; Current date, possibly corrected for late night
diff --git a/lisp/org/org.el b/lisp/org/org.el
index ab5316a0b13..56a8d11e1ab 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -12800,7 +12800,7 @@ variables is set."
 	  (cond
 	   (increment
 	    (unless allowed (user-error "Allowed effort values are not set"))
-	    (or (cl-caadr (member (list current) allowed))
+            (or (caadr (member (list current) allowed))
 		(user-error "Unknown value %S among allowed values" current)))
 	   (value
 	    (if (stringp value) value