diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 629b8c0dc..b699a945e 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-04-04  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-publish.el (org-publish-aux-preprocess): Control case
+	sensitivity.
+
 2010-04-04  Bastien Guerry  <bzg@altern.org>
 
 	* org.el (org-splice-latex-header): Fix typo.
diff --git a/lisp/org-publish.el b/lisp/org-publish.el
index be23331ef..6036f67ff 100644
--- a/lisp/org-publish.el
+++ b/lisp/org-publish.el
@@ -724,7 +724,8 @@ the project."
 (defvar backend) ; dynamically scoped
 (defun org-publish-aux-preprocess ()
   "Find index entries and write them to an .orgx file."
-  (let (entry index target)
+  (let ((case-fold-search t)
+	entry index target)
     (goto-char (point-min))
     (while
 	(and