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