Index: openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl,v
diff -u -r1.2.2.2 -r1.2.2.3
--- openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl	18 May 2008 17:07:17 -0000	1.2.2.2
+++ openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl	23 Aug 2008 17:20:40 -0000	1.2.2.3
@@ -103,7 +103,7 @@
         set months_short [list Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec]
 
         set wday [lindex $wdays_short [clock format $clock -format %w]]
-        set mon [lindex $months_short [expr {[clock format $clock -format %m] - 1}]]
+        set mon [lindex $months_short [expr {[string trimleft [clock format $clock -format %m] 0] - 1}]]
 
         set result [clock format $clock -format "$wday, %d $mon %Y %H:%M:%S $zone"]
     } else {