From abbc6cffe9e0038b12c066c511b9a35a6fa64c68 Mon Sep 17 00:00:00 2001
From: TMA <tma+hs@jikos.cz>
Date: Sun, 15 Mar 2026 00:32:17 +0100
Subject: [PATCH] fix WTF-9

---
 src/brmelect.scm     | 2 +-
 src/webgate-core.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/brmelect.scm b/src/brmelect.scm
index 89bdc37..04b90eb 100644
--- a/src/brmelect.scm
+++ b/src/brmelect.scm
@@ -87,7 +87,7 @@
              @tr{@th{ID} @th{Nick} @th{Name} @th{Surname}}
              @,@(row-map*
                 (lambda (id nick name surname)
-                  `@tr{@td{@,id}@td{@,nick}@td{@,name}@td{@,surname}})
+                  `@tr{@td{@,(number->string id)}@td{@,nick}@td{@,name}@td{@,surname}})
                 rows)
            }
         }))))
diff --git a/src/webgate-core.scm b/src/webgate-core.scm
index 07cd854..116e477 100644
--- a/src/webgate-core.scm
+++ b/src/webgate-core.scm
@@ -234,7 +234,7 @@
 	  (hash-table-ref/default status-table status "Unknown"))
 	 (headers '()))
   (%make-response
-   "text/html" headers (call-with-output-string (cut write-html html <>))
+   "text/html; charset=UTF-8" headers (call-with-output-string (cut write-html html <>))
    status status-message))
 
 (define (make-error-response