diff --git a/lisp/org-capture.el b/lisp/org-capture.el
index d8e62a1..861d640 100644
--- a/lisp/org-capture.el
+++ b/lisp/org-capture.el
@@ -1431,7 +1431,8 @@ only the bare key is returned."
 	      (insert prefix "[" dkey "]" "..." "  " ddesc "..." "\n")
 	      ;; Skip keys which are below this prefix
 	      (setq re (concat "\\`" (regexp-quote dkey)))
-	      (while (and tbl (string-match re (caar tbl))) (pop tbl)))
+	      (let ((case-fold-search nil))
+		(while (and tbl (string-match re (caar tbl))) (pop tbl))))
 	     ((= 2 (length (car tbl)))
 	      ;; Not yet a usable description, skip it
 	      )