Index: openacs-4/packages/acs-tcl/lib/page-error.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/lib/page-error.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/lib/page-error.tcl	25 Feb 2005 16:30:59 -0000	1.1
+++ openacs-4/packages/acs-tcl/lib/page-error.tcl	24 Mar 2005 00:37:48 -0000	1.2
@@ -43,12 +43,12 @@
 <b>[_ acs-tcl.File]</b> $error_file<br>
 <b>[_ acs-tcl.User_Name]</b> $user_name<br>
 <b>[_ acs-tcl.lt_User_Id_of_the_user_t]</b> $user_id<br>
-<b>[_ acs-tcl.Browser_of_the_user]</b> [ns_set get [ns_conn headers] User-Agent]<br>
+<b>[_ acs-tcl.Browser_of_the_user]</b> [ad_quotehtml [ns_set get [ns_conn headers] User-Agent]]<br>
 <br>
 -----------------------------<br>
 [_ acs-tcl.Error_details]<br>
 -----------------------------<br>
-<pre>$error_info</pre>
+<pre>[ad_quotehtml $error_info]</pre>
 <br>
 ------------------------------<br>
 <br>
@@ -288,7 +288,7 @@
 <br><b>[_ acs-tcl.File]</b> $error_file
 <br><b>[_ acs-tcl.User_Name]</b> $user_name
 <br><b>[_ acs-tcl.lt_User_Id_of_the_user_t]</b> $user_id
-<br>[_ acs-tcl.Browser_of_the_user]</b> [ns_set get [ns_conn headers] User-Agent]
+<br>[_ acs-tcl.Browser_of_the_user]</b> [ad_quotehtml [ns_set get [ns_conn headers] User-Agent]]
 <br><br><b>[_ acs-tcl.User_comments]</b>  
 <br>
 [template::util::richtext::get_property contents $description] <br>