diff --git a/lisp/org-element.el b/lisp/org-element.el
index d28e8a3c5..5857bc63a 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -2291,9 +2291,8 @@ Return a new syntax node of `clock' type containing `:status',
 `:value', `:time', `:begin', `:end', `:post-blank' and
 `:post-affiliated' as properties."
   (save-excursion
-    (let* ((case-fold-search nil)
-	   (begin (point))
-	   (value (progn (search-forward "CLOCK:" (line-end-position) t)
+    (let* ((begin (point))
+	   (value (progn (search-forward "CLOCK:" (line-end-position))
 			 (skip-chars-forward " \t")
 			 (org-element-timestamp-parser)))
 	   (duration (and (search-forward " => " (line-end-position) t)
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 2323b63a5..e309ed97f 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -1157,6 +1157,15 @@ CLOCK: [2023-10-13 Fri 14:40]--[2023-10-13 Fri 14:51] =>  0:11"
 				  (org-element-property :value clock))
 	    "[2012-01-01 sun. 00:01]"))
     (should-not (org-element-property :duration clock)))
+  ;; clock string should not be case-sensitive.
+  (let ((clock (org-test-with-temp-text "Clock: [2012-01-01 sun. 00:01]"
+		 (org-element-at-point))))
+    (should (eq (org-element-property :status clock) 'running))
+    (should
+     (equal (org-element-property :raw-value
+				  (org-element-property :value clock))
+	    "[2012-01-01 sun. 00:01]"))
+    (should-not (org-element-property :duration clock)))
   ;; Closed clock.
   (let ((clock
 	 (org-test-with-temp-text