diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5c229b385..d691ea8db 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-07-18  Bastien Guerry  <bzg@altern.org>
 
+	* org.el (org-get-refile-targets): Fix bug: don't ignore case when
+	building the list of targets.
+
 	* org-remember.el (org-remember-delete-empty-lines-at-end): New
 	option.
 	(org-remember-handler): Use the new option.
diff --git a/lisp/org.el b/lisp/org.el
index 5bbf12dc6..353bb783e 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -8283,7 +8283,9 @@ on the system \"/user@host:\"."
 
 (defun org-get-refile-targets (&optional default-buffer)
   "Produce a table with refile targets."
-  (let ((entries (or org-refile-targets '((nil . (:level . 1)))))
+  (let ((case-fold-search nil)
+	;; otherwise org confuses "TODO" as a kw and "Todo" as a word
+	(entries (or org-refile-targets '((nil . (:level . 1)))))
 	targets txt re files f desc descre fast-path-p level pos0)
     (message "Getting targets...")
     (with-current-buffer (or default-buffer (current-buffer))