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.1 -r1.2
--- openacs-4/packages/acs-templating/tcl/currency-procs.tcl	5 Feb 2002 02:11:42 -0000	1.1
+++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl	9 Feb 2002 02:33:35 -0000	1.2
@@ -49,7 +49,11 @@
     set format_fractional_part [lindex $format 3]
 
     set whole_part_valid_p [template::data::validate integer whole_part message]
-    set fractional_part_valid_p [template::data::validate integer fractional_part message]
+    if { ![empty_string_p $fractional_part] } {
+        set fractional_part_valid_p [template::data::validate integer fractional_part message]
+    } else {
+        set fractional_part_valid_p 1
+    }
 
     if { ! $whole_part_valid_p || ! $fractional_part_valid_p } {
 	set message "Invalid currency [join [lrange $value 0 4] ""]"