Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.119 -r1.120
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	10 Mar 2010 00:44:03 -0000	1.119
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	11 Mar 2010 11:03:01 -0000	1.120
@@ -3036,16 +3036,19 @@
 #     and whatever the user typed will be set in $expiration_date
 
 proc ad_dateentrywidget {column {default_date "1940-11-03"}} {
-    ns_share NS
-
+    if {[ns_info name] ne "NaviServer"} {
+        ns_share NS
+    } else {
+        set NS(months) [list January February March April May June \
+                            July August September October November December]
+    }
     set output "<select name=\"$column.month\">\n"
     for {set i 0} {$i < 12} {incr i} {
 	append output "<option> [lindex $NS(months) $i]</option>\n"
     }
 
     append output "</select>&nbsp;<input name=\"$column.day\" type=\"text\" size=\"3\" maxlength=\"2\">&nbsp;<input name=\"$column.year\" type=\"text\" size=\"5\" maxlength=\"4\">"
 
-
     return [ns_dbformvalueput $output $column date $default_date]
 }