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.3 -r1.4
--- openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl	7 Jun 2008 20:28:56 -0000	1.3
+++ openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl	23 Aug 2008 17:20:55 -0000	1.4
@@ -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 {