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)