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.13 -r1.14
--- openacs-4/packages/acs-templating/tcl/currency-procs.tcl	14 May 2007 20:30:27 -0000	1.13
+++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl	2 Oct 2007 19:13:31 -0000	1.14
@@ -350,7 +350,7 @@
         }
         if { $i == 0 || $i == 2 || $i == 4 } {
             append output "$format_property<input type=\"hidden\" name=\"$element(name).$i\" value=\"$format_property\" >"
-        } elseif { [string equal $element(mode) "edit"] && ($i == 1 || $i == 3) } {
+        } elseif { $element(mode) eq "edit" && ($i == 1 || $i == 3) } {
             append output "<input type=\"text\" name=\"$element(name).$i\" maxlength=\"$format_property\" size=\"$format_property\" value=\"$value$trailing_zero\" >\n"
         } else {
             append output "$value$trailing_zero<input type=\"hidden\" name=\"$element(name).$i\" maxlength=\"$format_property\" size=\"$format_property\" value=\"$value\" >"