diff --git a/contrib/lisp/org-contacts.el b/contrib/lisp/org-contacts.el
index eba1a82f2..82881ecd0 100644
--- a/contrib/lisp/org-contacts.el
+++ b/contrib/lisp/org-contacts.el
@@ -923,11 +923,11 @@ address."
              (email-list (org-entry-get pom org-contacts-email-property))
              (gravatar
               (when email-list
-                (loop for email in (org-contacts-split-property email-list)
-                      for gravatar = (gravatar-retrieve-synchronously (org-contacts-strip-link email))
-                      if (and gravatar
-                              (not (eq gravatar 'error)))
-                      return gravatar))))
+                (cl-loop for email in (org-contacts-split-property email-list)
+                         for gravatar = (gravatar-retrieve-synchronously (org-contacts-strip-link email))
+                         if (and gravatar
+                                 (not (eq gravatar 'error)))
+                         return gravatar))))
         (when gravatar (throw 'icon gravatar))))))
 
 (defun org-contacts-irc-buffer (&optional pom)
@@ -965,10 +965,10 @@ address."
 
 (defun erc-nicknames-list ()
   "Return all nicknames of all ERC buffers."
-  (loop for buffer in (erc-buffer-list)
-	nconc (with-current-buffer buffer
-		(loop for user-entry in (mapcar 'car (erc-get-channel-user-list))
-		      collect (elt user-entry 1)))))
+  (cl-loop for buffer in (erc-buffer-list)
+	   nconc (with-current-buffer buffer
+		   (cl-loop for user-entry in (mapcar 'car (erc-get-channel-user-list))
+		            collect (elt user-entry 1)))))
 
 (add-to-list 'org-property-set-functions-alist
              `(,org-contacts-nickname-property . org-contacts-completing-read-nickname))
@@ -1079,8 +1079,8 @@ is created and the VCard is written into that buffer."
     (fundamental-mode)
     (when (fboundp 'set-buffer-file-coding-system)
       (set-buffer-file-coding-system coding-system-for-write))
-    (loop for contact in (org-contacts-filter name)
-	  do (insert (org-contacts-vcard-format contact)))
+    (cl-loop for contact in (org-contacts-filter name)
+	     do (insert (org-contacts-vcard-format contact)))
     (if to-buffer
 	(current-buffer)
       (progn (save-buffer) (kill-buffer)))))