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.83.2.5 -r1.83.2.6
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Dec 2005 23:29:11 -0000	1.83.2.5
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	1 Jul 2006 10:52:21 -0000	1.83.2.6
@@ -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"