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\" >"
Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	29 Aug 2007 14:01:33 -0000	1.40
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	2 Oct 2007 19:13:31 -0000	1.41
@@ -700,7 +700,7 @@
   if {$value eq {}} {
     return 0
   } else {
-    return [expr [template::util::leadingTrim $value] < 0]
+    return [expr {[template::util::leadingTrim $value] < 0}]
     return [expr {$value < 0}]
   }
 }
@@ -1039,7 +1039,7 @@
   }
 
   set tbody_content "<tbody><tr>"
-  while { ![string equal $format_string {}] } {
+  while { $format_string ne {} } {
 
     # Snip off the next token
     regexp {([^/\-.: ]*)([/\-.: ]*)(.*)} \
Index: openacs-4/packages/acs-templating/tcl/parse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/parse-procs.tcl,v
diff -u -r1.42 -r1.43
--- openacs-4/packages/acs-templating/tcl/parse-procs.tcl	14 May 2007 20:30:27 -0000	1.42
+++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl	2 Oct 2007 19:13:31 -0000	1.43
@@ -196,7 +196,7 @@
       return -code error -errorinfo $s_errorInfo -errorcode $s_errorCode $return_value
     }
     default {
-      if { [string equal $return_value ADP_ABORT] } { 
+      if {$return_value eq "ADP_ABORT"} { 
         # return without rendering any HTML if the code aborts
         return "" 
       } else {