Index: openacs.org-dev/packages/acs-templating/tcl/currency-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-templating/tcl/currency-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-templating/tcl/currency-procs.tcl	9 Jul 2002 17:34:59 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-templating/tcl/currency-procs.tcl	8 Oct 2002 15:46:50 -0000	1.1.1.2
@@ -13,8 +13,9 @@
 # to tie this in with the acs-lang money database as this code's far too
 # simplistic.
 
-# Dispatch procedure for the currency object
 ad_proc -public template::util::currency { command args } {
+    Dispatch procedure for the currency object
+} {
   eval template::util::currency::$command $args
 }
 
@@ -25,9 +26,10 @@
     return [list $leading_symbol $whole_part $separator $fractional_part $trailing_money $format]
 }
 
-# Create a new currency value with some predefined value
-# Basically, create and set the currency value
 ad_proc -public template::util::currency::acquire { type { value "" } } {
+    Create a new currency value with some predefined value
+    Basically, create and set the currency value
+} {
   set currency_list [template::util::currency::create]
   return [template::util::currency::set_property $type $currency_list $value]
 }
@@ -96,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
 		}