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 -N -r1.18 -r1.19
--- openacs-4/packages/acs-templating/tcl/currency-procs.tcl	24 Apr 2018 21:19:43 -0000	1.18
+++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl	16 May 2018 22:04:59 -0000	1.19
@@ -90,8 +90,10 @@
     # a currency is a 6 element list supporting, for example, the following forms: "$2.03" "Rs 50.42" "12.52L" "Y5,13c"
     # equivalent of date::unpack
     lassign $value leading_symbol whole_part separator fractional_part trailing_money format
-    lassign $format . format_whole_part . format_fractional_part
 
+    set format_whole_part      [lindex $format 1]
+    set format_fractional_part [lindex $format 3]
+
     set whole_part_valid_p [template::data::validate integer whole_part message]
     if { $fractional_part ne "" } {
         set fractional_part_valid_p [template::data::validate integer fractional_part message]