diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 08a6cbf209d..63d85623fbe 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -517,7 +517,7 @@ its argument list allows full Common Lisp conventions."
     (when aux
       ;; `&aux' args aren't arguments, so let's just drop them from the
       ;; usage info.
-      (setq arglist (cl-subseq arglist 0 aux))))
+      (setq arglist (take aux arglist))))
   (if (not (proper-list-p arglist))
       (let* ((last (last arglist))
              (tail (cdr last)))