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.17 -r1.17.2.1
--- openacs-4/packages/acs-templating/tcl/data-procs.tcl	8 Dec 2012 17:50:20 -0000	1.17
+++ openacs-4/packages/acs-templating/tcl/data-procs.tcl	10 Oct 2013 21:20:09 -0000	1.17.2.1
@@ -364,7 +364,7 @@
     upvar 2 $message_ref message $value_ref textdate
     
     set error_msg [list]
-    if { [exists_and_not_null textdate] } {
+    if { ([info exists textdate] && $textdate ne "") } {
 	if { [regexp {^[0-9]{4}-[0-9]{2}-[0-9]{2}$} $textdate match] } {
 	    if { [catch { clock scan "${textdate}" }] } {
 		# the textdate is formatted properly the template::data::transform::textdate proc
@@ -488,7 +488,7 @@
   
   # unique list
   set list [split $value ,]
-  set result [expr [llength $list] == [llength [lsort -unique $list]]]
+  set result [expr {[llength $list] == [llength [lsort -unique $list]]}]
   
   if { ! $result } {
     set message "Invalid enumeration. \"$value\" does not contain unique values."