Forum OpenACS Development: recurring events broken in (HEAD) calendar

hi!

I know head is not guranteed now :) but could use some help to debug a problem in the calendar.

Is there anyone here playing with HEAD and discovered some problems with creating recurring events in the calendar.

Here is the error report. I am not sure what the !>>>! in the error below is, since I can't find that anywhere in the sources.

Thanks for any clues! /Mohan

Request Error
ora8.c:3930:ora_tcl_command: error in `OCIStmtExecute ()': ORA-01846: not a valid day of the week
ORA-06512: "SPO.ACS_EVENT", line 374
ORA-06512: line 3

SQL: 
begin
   ac !>>>!_event.insert_instances(event_id => :cal_item_id);
end;

    while executing
"ns_ora dml nsdb0 {
begin
   acs_event.insert_instances(event_id => :cal_item_id);
end;
}"
    ("uplevel" body line 1)
    invoked from within
"uplevel $ulevel [list ns_ora $type $db $sql] $args"
    invoked from within
"db_exec dml $db $full_statement_name $sql"
    invoked from within
"if { [regexp {:1} $test_sql] } {
	    return [db_exec exec_plsql_bind $db $full_statement_name $sql 2 1 ""]
	} else {
	    return [db_exec dml $db $fu..."
    ("uplevel" body line 5)
    invoked from within
"uplevel 1 $code_block "
    invoked from within
"db_with_handle db {
	# Right now, use :1 as the output value if it occurs in the statement,
	# or not otherwise.
        set test_sql [db_qd_replace_s..."
    (procedure "db_exec_plsql" line 11)
    invoked from within
"db_exec_plsql insert_instances {}"
    (procedure "calendar::item::add_recurrence" line 17)
    invoked from within
"calendar::item::add_recurrence -cal_item_id $cal_item_id -interval_type $interval_type -every_n $every_n -days_of_week $days_of_week -recur_until [cal..."
    ("uplevel" body line 26)
    invoked from within
"uplevel {
    	  
# /packages/calendar/www/cal-item-create.tcl

ad_page_contract {
    
    Creation of new recurrence for cal item
    
    @author B..."
    (procedure "code::tcl::/web/uib/packages/calendar/www/cal-item-create-re..." line 2)
    invoked from within
"code::tcl::$__adp_stub"
    invoked from within
"if { [file exists $__adp_stub.tcl] } {

      # ensure that data source preparation procedure exists and is up-to-date
      adp_init tcl $__adp_stub
..."
    ("uplevel" body line 3)
    invoked from within
"uplevel {

    if { [file exists $__adp_stub.tcl] } {

      # ensure that data source preparation procedure exists and is up-to-date
      adp_init t..."
    (procedure "adp_prepare" line 2)
    invoked from within
"adp_prepare "
    (procedure "template::adp_parse" line 30)
    invoked from within
"template::adp_parse [file root [ad_conn file]] {}"
    (procedure "adp_parse_ad_conn_file" line 7)
    invoked from within
"$handler"
    ("uplevel" body line 2)
    invoked from within
"uplevel $code"
    invoked from within
"ad_try {
	$handler
      } ad_script_abort val {
	# do nothing
      }"
    invoked from within
"rp_serve_concrete_file [ad_conn file]"
    (procedure "rp_serve_abstract_file" line 60)
    invoked from within
"rp_serve_abstract_file "$root/$path""
    ("uplevel" body line 2)
    invoked from within
"uplevel $code"
    invoked from within
"ad_try {
	rp_serve_abstract_file "$root/$path"
	set tcl_url2file([ad_conn url]) [ad_conn file]
	set tcl_url2path_info([ad_conn url]) [ad_conn path_inf..."