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 -r1.19.2.12 -r1.19.2.13
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	19 May 2006 11:12:39 -0000	1.19.2.12
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	20 Jun 2006 22:10:06 -0000	1.19.2.13
@@ -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 \
@@ -379,6 +382,8 @@
 			  -default 0]
     }
 
+
+
     set format_menu [menu $element(id).format [template::util::richtext::format_options] $format {}]
     set output [textarea_internal $element(id) attributes $contents]