diff --git a/README.org b/README.org
index 156abf0..eaa8056 100644
--- a/README.org
+++ b/README.org
@@ -499,6 +499,11 @@ Expands into a call to ~org-ql-select~ with the same arguments.  For convenience
 *Internal*
 +  Refactored code from file =org-ql-agenda.el= into files =org-ql-search.el= and =org-ql-view.el=.  Function and variable names have been changed accordingly.
 
+** 0.2.3
+
+*Fixed*
++  Priority queries could fail to match headings whose to-do keywords had non-alphabetic characters, like =TO-READ=.
+
 ** 0.2.2
 
 *Fixed*
diff --git a/org-ql.el b/org-ql.el
index bfaaaf9..2934cbd 100644
--- a/org-ql.el
+++ b/org-ql.el
@@ -495,7 +495,7 @@ replace the clause with a preamble."
                                  ;; Specific priority without comparator.
                                  ;; MAYBE: Disable case-folding.
                                  (setq org-ql-preamble (rx-to-string `(seq bol (1+ "*") (1+ blank)
-                                                                           (optional (1+ upper) (1+ blank))
+                                                                           (0+ nonl) (1+ blank)
                                                                            "[#" ,letter "]") t))
                                  nil)
                                 (`(priority ,comparator ,letter)