Index: openacs-4/packages/acs-templating/tcl/data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/data-procs.tcl,v
diff -u -r1.18.2.1 -r1.18.2.2
--- openacs-4/packages/acs-templating/tcl/data-procs.tcl	10 Sep 2015 08:22:05 -0000	1.18.2.1
+++ openacs-4/packages/acs-templating/tcl/data-procs.tcl	17 Dec 2015 19:55:20 -0000	1.18.2.2
@@ -132,7 +132,7 @@
   upvar 2 $message_ref message $value_ref value
 
   set result ""
-  set value [string tolower $value]
+  set value [::string tolower $value]
 
   switch $value {
       0 -
@@ -395,7 +395,7 @@
 	}
     }
     if { [llength $error_msg] > 0 } {
-	set message "[join $error_msg {<br>}]"
+	set message [join $error_msg {<br>}]
         return 0
     } else {
         return 1