Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v
diff -u -N -r1.19 -r1.20
--- openacs-4/packages/acs-templating/tcl/util-procs.tcl	26 Jul 2004 12:32:31 -0000	1.19
+++ openacs-4/packages/acs-templating/tcl/util-procs.tcl	31 Jan 2005 21:03:19 -0000	1.20
@@ -659,7 +659,7 @@
 	  regsub -all "($name).($column_name)" $running_code "$name:${i}($column_name)" running_code
       }
 
-     regsub -all {@([A-z0-9_:\(\)]+)@} $running_code {${\1}} running_code
+     regsub -all {@([a-zA-Z0-9_:\(\)]+)@} $running_code {${\1}} running_code
 
      uplevel {
        eval $running_code