utf8

svn: r4281

collects/web-server/configuration.ss

@@ -169,7 +169,7 @@
   (define (servlet-loading-responder url exn)
     (make-response/full 500 "Servlet didn't load"
                         (current-seconds)
-                        #"text/plain" ;TEXT/HTML-MIME-TYPE
+                        #"text/plain; charset=utf-8" ;TEXT/HTML-MIME-TYPE
                         '() ; check
                         (list "Servlet didn't load.\n"
                               (exn->string exn))))

collects/web-server/mime-types.ss

@@ -14,7 +14,7 @@
   ;; 2. Assuming that 7-bit ASCII is correct for mime-type
   (define (make-get-mime-type a-path)
     (let ([MIME-TYPE-TABLE (make-hash-table)]
-          [DEFAULT-MIME-TYPE #"text/plain"]
+          [DEFAULT-MIME-TYPE #"text/plain; charset=utf-8"]
           [file-suffix-regexp (byte-regexp #".*\\.([^\\.]*$)")])
       (with-input-from-file a-path
         (lambda ()