Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v
diff -u -N -r1.21 -r1.22
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	4 Jun 2006 00:45:48 -0000	1.21
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	20 Jun 2006 22:45:58 -0000	1.22
@@ -370,7 +370,10 @@
     set attributes(id) "richtext__$element(form_id)__$element(id)"
     set package_id_templating [apm_package_id_from_key "acs-templating"]
 
-    if { [exists_and_not_null element(htmlarea_p)] } {
+    set user_agent [string tolower [ns_set get [ns_conn headers] User-Agent]]
+    if { [string first "safari" $user_agent] != -1 } { 
+      set htmlarea_p 0
+    } elseif { [exists_and_not_null element(htmlarea_p)] } {
       set htmlarea_p [template::util::is_true $element(htmlarea_p)]
     } else {
       set htmlarea_p [parameter::get \