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.3 -r1.4
--- openacs-4/packages/acs-templating/tcl/currency-procs.tcl	12 May 2002 20:57:02 -0000	1.3
+++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl	21 Aug 2002 18:15:37 -0000	1.4
@@ -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]
 }