diff --git a/lisp/org.el b/lisp/org.el
index a75bdfb42..f02a45590 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -8829,10 +8829,12 @@ buffer.  It will also recognize item context in multiline items."
 			 ("<return>" . "RET")
 			 ("<escape>" . "ESC")
 			 ("<delete>" . "DEL")))
-	    (setq binding (read-kbd-macro (replace-regexp-in-string
-					   (regexp-quote (car rep))
-					   (cdr rep)
-					   (key-description binding)))))
+	    (setq binding (read-kbd-macro
+			   (let ((case-fold-search))
+			     (replace-regexp-in-string
+			      (regexp-quote (cdr rep))
+			      (car rep)
+			      (key-description binding))))))
 	  (let ((key (lookup-key orgstruct-mode-map binding)))
 	    (when (or (not key) (numberp key))
 	      (condition-case nil