From f6761b19932a05f0c9c8f3f7d0a77bf3497c93c2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sat, 13 May 2023 22:00:58 +0200
Subject: [PATCH] Make sure the tags are upcase.

---
 src/util-tag.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/util-tag.scm b/src/util-tag.scm
index 779423f..53315df 100644
--- a/src/util-tag.scm
+++ b/src/util-tag.scm
@@ -47,7 +47,11 @@
    (string->symbol
     (string-intersperse
      (cons
-      (symbol->string sym)
+      (list->string
+       (map
+	char-upcase
+	(string->list
+	 (symbol->string sym))))
       (cons
        "-"
        (map (lambda (n)