diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22bda35ee..07b910bdf 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-09-29  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-mobile.el (org-mobile-create-sumo-agenda): Call
+	`org-sore-agenda-views' instead of `org-batch-store-agenda-views'.
+
 	* org-latex.el (org-export-latex-treat-sub-super-char): Allow a
 	space character as the character before the ^/_.
 	(org-export-latex-final-hook): New hook.
diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el
index 48527cd08..a61dac3cf 100644
--- a/lisp/org-mobile.el
+++ b/lisp/org-mobile.el
@@ -161,7 +161,7 @@ using `rsync' or `scp'.")
 			  org-mobile-files)))
 	 (orgdir-uname (file-name-as-directory (file-truename org-directory)))
 	 (orgdir-re (concat "\\`" (regexp-quote orgdir-uname)))
-	 uname seen rtn)
+	 uname seen rtn file link-name)
     ;; Make the files unique, and determine the name under which they will
     ;; be listed.
     (while (setq file (pop files))
@@ -233,7 +233,7 @@ agenda view showing the flagged items."
 (defun org-mobile-create-index-file ()
   "Write the index file in the WebDAV directory."
   (let ((files-alist org-mobile-files-alist)
-	file todo-kwds done-kwds tags drawers entry)
+	file link-name todo-kwds done-kwds tags drawers entry)
     (org-prepare-agenda-buffers (mapcar 'car files-alist))
     (setq done-kwds (org-uniquify org-done-keywords-for-agenda))
     (setq todo-kwds (org-delete-all
@@ -373,7 +373,7 @@ The table of checksums is written to the file mobile-checksums."
 			(list (list file))))))
     (unless (file-writable-p file)
       (error "Cannot write to file %s" file))
-    (org-batch-store-agenda-views)))
+    (org-store-agenda-views)))
 
 (defun org-mobile-move-capture ()
   "Move the contents of the capture file to the inbox file.