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.16 -r1.17
--- openacs-4/packages/acs-templating/tcl/currency-procs.tcl	7 Aug 2017 23:48:01 -0000	1.16
+++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl	1 Oct 2017 12:16:05 -0000	1.17
@@ -203,7 +203,7 @@
 
     set format [lindex $currency_list 5]
 
-    switch $what {
+    switch -- $what {
         sql_number {
 
             if { $value eq ""} {
@@ -253,7 +253,7 @@
     set trailing_money [lindex $currency_list 4]
     set format [lindex $currency_list 5]
 
-    switch $what {
+    switch -- $what {
         leading_symbol {
             return $leading_symbol
         }