--- a/.emacs-my	Sat Jan 02 22:38:46 2021 +0200
+++ b/.emacs-my	Sat Jan 02 22:41:10 2021 +0200
@@ -1994,7 +1994,7 @@
 Without prefix work on current file. With prefix work on
 `org-agenda-files'."
   (interactive "P")
-  (loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do
+  (cl-loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do
         (my-org-archive-file file)))
 
 (setq org-agenda-include-diary nil)