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.15.2.3 -r1.15.2.4
--- openacs-4/packages/acs-templating/tcl/currency-procs.tcl	3 Oct 2016 18:52:07 -0000	1.15.2.3
+++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl	27 Nov 2016 12:19:35 -0000	1.15.2.4
@@ -155,7 +155,7 @@
                     set have_values 1
                 }
 		set fractional_part_format [lindex $format 3]
-		for { set j [string length $value] } { $j < $fractional_part_format } { set j [expr {$j + 1}] } {
+		for { set j [string length $value] } { $j < $fractional_part_format } { incr j } {
 		    append $value 0
 		}
 	    }