From a2ef6ed6a5b6cf8e65599670d37ff7935910db6e Mon Sep 17 00:00:00 2001
From: Christopher Lam <christopher.lck@gmail.com>
Date: Fri, 4 Dec 2020 18:36:22 +0800
Subject: [PATCH] Use proper format syntax

---
 gnucash/report/html-text.scm            | 2 +-
 libgnucash/app-utils/date-utilities.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnucash/report/html-text.scm b/gnucash/report/html-text.scm
index 7fb0da9c51..3837a7eda2 100644
--- a/gnucash/report/html-text.scm
+++ b/gnucash/report/html-text.scm
@@ -133,7 +133,7 @@
             (apply string-append
                    (gnc:html-document-tree-collapse rendered-elt)))
            (#t 
-            (format "hold on there podner. form='~s'\n" rendered-elt)
+            (format #f "hold on there podner. form=~s\n" rendered-elt)
             ""))))
       entities))))
 
diff --git a/libgnucash/app-utils/date-utilities.scm b/libgnucash/app-utils/date-utilities.scm
index 6d7faae88a..4f89fc98c7 100644
--- a/libgnucash/app-utils/date-utilities.scm
+++ b/libgnucash/app-utils/date-utilities.scm
@@ -68,7 +68,7 @@
   (gnc-print-time64 (gnc-mktime datevec) "%Y"))
 
 (define (gnc:date-get-quarter-string datevec)
-  (format #f "Q~d" (gnc:date-get-quarter datevec)))
+  (format #f "Q~a" (gnc:date-get-quarter datevec)))
 
 (define (gnc:date-get-quarter-year-string datevec)
   (string-append