Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.88 -r1.89
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	6 Jun 2006 22:22:22 -0000	1.88
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	1 Jul 2006 10:57:24 -0000	1.89
@@ -1724,6 +1724,9 @@
     It returns status 200 and all headers including 
     any added to outputheaders.
 } { 
+    if {![string match *charset=* $content_type]} {
+      append content_type "; charset=[ns_config ns/parameters OutputCharset iso-8859-1]"
+    }
     set all_the_headers "HTTP/1.0 200 OK
 MIME-Version: 1.0
 Content-Type: $content_type\r\n"
@@ -1738,6 +1741,9 @@
     TCP packet (and therefore some overhead) compared to using
     ReturnHeaders and an ns_write.
 } {
+    if {![string match *charset=* $content_type]} {
+      append content_type "; charset=[ns_config ns/parameters OutputCharset iso-8859-1]"
+    }
     set all_the_headers "HTTP/1.0 200 OK
 MIME-Version: 1.0
 Content-Type: $content_type\r\n"