diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 919288ae1..361f172f3 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -2005,14 +2005,12 @@ TYPE must be a string, any of:
   "Recursively include files aborting on circular inclusion."
   (let ((now (list org-current-export-file)) all)
     (while now
-      (setq all (remove-duplicates (append now all)))
+      (setq all (append now all))
       (setq now (org-export-handle-include-files))
       (let ((intersection
 	     (delq nil
-		   (mapcar
-		    (lambda (el) (when (member el all) el))
-		    now))))
-	(when (intersection now all)
+		   (mapcar (lambda (el) (when (member el all) el)) now))))
+	(when intersection
 	  (error "recursive #+INCLUDE: %S" intersection))))))
 
 (defun org-get-file-contents (file &optional prefix prefix1 markup)