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 -N -r1.17.2.2 -r1.17.2.3
--- openacs-4/packages/acs-templating/tcl/data-procs.tcl	26 Oct 2013 09:19:59 -0000	1.17.2.2
+++ openacs-4/packages/acs-templating/tcl/data-procs.tcl	29 Jul 2014 10:56:36 -0000	1.17.2.3
@@ -79,7 +79,7 @@
 
   @return True (1) if valid, false (0) if not
 } {
-  upvar 2 $message_ref message $value_ref value
+    upvar 2 $message_ref message $value_ref value
 
     set result [regexp {^(0*)(([1-9][0-9]*|0))$} $value match zeros value]