Index: openacs-4/packages/acs-lang/tcl/localization-data-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/localization-data-init.tcl,v
diff -u -r1.18 -r1.18.10.1
--- openacs-4/packages/acs-lang/tcl/localization-data-init.tcl	10 Jan 2007 21:22:04 -0000	1.18
+++ openacs-4/packages/acs-lang/tcl/localization-data-init.tcl	2 Oct 2013 09:10:22 -0000	1.18.10.1
@@ -122,9 +122,9 @@
     # Straight (localian) lookups
     set percent_match(a) {[lindex [lc_get -locale $locale "abday"] $lc_time_day_no]}
     set percent_match(A) {[lindex [lc_get -locale $locale "day"] $lc_time_day_no]}
-    set percent_match(b) {[lindex [lc_get -locale $locale "abmon"] [expr {$lc_time_month-1}]]}
-    set percent_match(h) {[lindex [lc_get -locale $locale "abmon"] [expr {$lc_time_month-1}]]}
-    set percent_match(B) {[lindex [lc_get -locale $locale "mon"] [expr {$lc_time_month-1}]]}
+    set percent_match(b) {[lindex [lc_get -locale $locale "abmon"] $lc_time_month-1]}
+    set percent_match(h) {[lindex [lc_get -locale $locale "abmon"] $lc_time_month-1]}
+    set percent_match(B) {[lindex [lc_get -locale $locale "mon"] $lc_time_month-1]}
     set percent_match(p) {[lc_time_name_meridian $locale $lc_time_hours]}
 
     # Finally, static string replacements