diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el
index 1b2f79cc1..d77602098 100644
--- a/lisp/org-mobile.el
+++ b/lisp/org-mobile.el
@@ -179,7 +179,8 @@ using `rsync' or `scp'.")
   "Expand the list in `org-mobile-files' to a list of existing files."
   (let* ((include-archives
 	  (and (member 'org-agenda-text-search-extra-files org-mobile-files)
-	       (member 'agenda-archives	org-agenda-text-search-extra-files)))
+	       (member 'agenda-archives	org-agenda-text-search-extra-files)
+	       t))
 	 (files
 	  (apply 'append
 		 (mapcar