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.42 -r1.43
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	3 Sep 2008 16:11:23 -0000	1.42
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	4 Sep 2008 08:28:06 -0000	1.43
@@ -409,11 +409,14 @@
         set user_agent [string tolower [ns_set get [ns_conn headers] User-Agent]]
 
         if {[string first "safari" $user_agent] != -1} {
-            regexp {version/([0-9]+)[.]} $user_agent _ user_agent_version
-            # vguerra: checking if versions appears on the user agent;
-            # if not.. the user agent might be Chrome.
-            if {[info exists user_agent_version] && $user_agent_version < 3} {
-                set element(htmlarea_p) false
+            if {[regexp {version/([0-9]+)[.]} $user_agent _ user_agent_version]} {
+                if {$user_agent_version < 3} {
+                    set element(htmlarea_p) false
+                } 
+            } elseif {[string first "chrome" $user_agent] != -1} {
+                # vguerra: google chrome browser
+                # needs more testing in order to check if chrome fully
+                # supports xinha.
             }
         } elseif {[string first "opera" $user_agent] != -1} {
             regexp {^[^/]+/([0-9]+)[.]} $user_agent _ user_agent_version