From 0f8ae0e85033a3838acb8b2dfde4c39bd3389b0d Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
Date: Fri, 18 Mar 2022 12:41:03 -0500
Subject: [PATCH] WIP: Fix query in section heading

---
 taxy-org-ql-view.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/taxy-org-ql-view.el b/taxy-org-ql-view.el
index c35ea23..37971f3 100644
--- a/taxy-org-ql-view.el
+++ b/taxy-org-ql-view.el
@@ -345,7 +345,9 @@ Searches in ELEMENT's buffer."
                                 :item-indent org-ql-view-item-indent
                                 args)))
       (let* ((title (format "Query:%S  In:%S"
-                            (org-ql--query-sexp-to-string query) buffers-or-files))
+                            (or (org-ql--query-sexp-to-string query)
+				(prin1-to-string query))
+			    buffers-or-files))
              (items (org-ql-select buffers-or-files query
                       :action 'element-with-markers
                       :sort sort))