diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 5952ff672..3a67d2df6 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -2592,7 +2592,7 @@ from the dynamic block definition."
 
 	  ;; Get the list of node entries and iterate over it
 	  (when (> maxlevel 0)
-	    (pcase-dolist (`(,level ,headline ,ts ,time . ,props) entries)
+	    (pcase-dolist (`(,level ,headline ,ts ,time ,props) entries)
 	      (when narrow-cut-p
 		(setq headline
 		      (if (and (string-match