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 {([^/\-.: ]*)([/\-.: ]*)(.*)} \