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.52.2.7 -r1.52.2.8
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	18 Sep 2015 07:31:48 -0000	1.52.2.7
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	7 Oct 2015 08:44:39 -0000	1.52.2.8
@@ -448,13 +448,13 @@
         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
-            if {$user_agent_version < 3} {
+            if {[regexp {version/([0-9]+)[.]} $user_agent _ user_agent_version]
+                && $user_agent_version < 3} {
                 set element(htmlarea_p) false
             }
         } elseif {[string first "opera" $user_agent] != -1} {
-            regexp {^[^/]+/([0-9]+)[.]} $user_agent _ user_agent_version
-            if {$user_agent_version < 9} {
+            if {[regexp {^[^/]+/([0-9]+)[.]} $user_agent _ user_agent_version]
+                && $user_agent_version < 9} {
                 set element(htmlarea_p) false
             }
         }