Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	23 Sep 2003 17:29:47 -0000	1.12
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	23 Sep 2003 21:26:43 -0000	1.13
@@ -1622,7 +1622,8 @@
     if { [regexp {^(0*)(([1-9][0-9]*|0))$} $date(month) match zeros real_value] } {
 	set date(month) $real_value
     } else {
-	set date(month) [expr [lsearch [nsv_get _nsdb months] $date(month)] + 1]
+        set months_list {January February March April May June July August September October November December}
+	set date(month) [expr [lsearch $months_list $date(month)] + 1]
     }
 
     if {