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.63.2.10 -r1.63.2.11
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	18 Aug 2021 14:08:56 -0000	1.63.2.10
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	18 Aug 2021 14:13:04 -0000	1.63.2.11
@@ -167,16 +167,15 @@
 ad_proc -public template::util::date::today {} {
     Create a new Date object for the current date.
 } {
+    set now [clock format [clock seconds] -format "%Y %m %d"]
+    set today [list]
 
-  set now [clock format [clock seconds] -format "%Y %m %d"]
-  set today [list]
+    foreach v $now {
+        # trim leading zeros to avoid octal problem
+        lappend today [util::trim_leading_zeros $v]
+    }
 
-  foreach v $now {
-    # trim leading zeros to avoid octal problem
-    lappend today [util::trim_leading_zeros $v]
-  }
-
-  return [create {*}$today]
+    return [create {*}$today]
 }
 
 ad_proc -public template::util::date::now {} {