Index: openacs-4/packages/acs-templating/tcl/currency-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/currency-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-templating/tcl/currency-procs.tcl	2 Oct 2007 19:13:31 -0000	1.14
+++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl	27 Oct 2014 16:40:10 -0000	1.15
@@ -24,7 +24,7 @@
 ad_proc -public template::util::currency { command args } {
     Dispatch procedure for the currency object
 } {
-  eval template::util::currency::$command $args
+  template::util::currency::$command {*}$args
 }
 
 ad_proc -public template::util::currency::create {
@@ -212,7 +212,7 @@
                 set whole_part "[string range "0" [string length $whole_part] end]$whole_part"
 
                 # Chop off trailing digits beyond those called for by the given format
-                set fractional_part "[string range $fractional_part 0 [expr {[lindex $format 3] - 1}]]"
+                set fractional_part "[string range $fractional_part 0 [lindex $format 3]-1]"
             }
             set new_value [lreplace $currency_list 1 1 $whole_part]
             return [lreplace $new_value 3 3 $fractional_part]