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.4 -r1.5
--- openacs-4/packages/acs-templating/tcl/currency-procs.tcl	21 Aug 2002 18:15:37 -0000	1.4
+++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl	13 Sep 2002 11:24:19 -0000	1.5
@@ -98,7 +98,7 @@
 		if { ![string equal $value ""] } {
                     set have_values 1
                 }
-		set fractional_part_format [lindex format 3]
+		set fractional_part_format [lindex $format 3]
 		for { set j [string length $value] } { $j < $fractional_part_format } { set j [expr $j + 1] } {
 		    append $value 0
 		}