Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.79 -r1.80
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	12 Jun 2008 11:38:40 -0000	1.79
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	19 Jun 2008 13:57:39 -0000	1.80
@@ -1330,7 +1330,7 @@
   # "yesterday", "next week", .... use _ for blanks
 
   date instproc initialize {} {
-    #my msg "DATE has value [my value] format=[my format]"
+    #my msg "DATE has value [my value]//d=[my default] format=[my format]"
     my set widget_type date
     my set format [string map [list _ " "] [my format]]
     my array set defaults {year 2000 month 01 day 01 hour 00 min 00 sec 00}
@@ -1367,11 +1367,11 @@
       $c set trim_zeros $trim_zeros
       if {[lsearch [my components] $c] == -1} {my lappend components $c}
     }
-    #my msg "DATE [my name] has value after initialize '[my value]'"
   }
 
   date instproc set_compound_value {value} {
     #my msg "[my name] original value '[my value]' // passed='$value'"
+    if {$value eq ""} {return}
     set value [::xo::db::tcl_date $value tz]
     #my msg "transformed value '$value'"
     if {$value ne ""} {
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.251 -r1.252
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	12 Jun 2008 11:38:40 -0000	1.251
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	19 Jun 2008 13:57:39 -0000	1.252
@@ -401,8 +401,8 @@
       set id [acs_user::get_by_username -username $(username)]
       if {$id ne ""} { return $id }
     }
-    my log "+++ create a new user username=${username}, email=$(email)"
-    array set status [auth::create_user -user_name $(username) --email $(email) \
+    my log "+++ create a new user username=$(username), email=$(email)"
+    array set status [auth::create_user -username $(username) -email $(email) \
                           -first_names $(first_names) -last_name $(last_name) \
                           -screen_name $(screen_name) -url $(url)]
     if {$status(creation_status) eq "ok"} {
@@ -1584,6 +1584,7 @@
   PageInstance instproc get_from_template {var} {
     my instvar page_template
     set form_id [my get_form_id]
+    #my msg "$var template_id=$page_template, form_id=$form_id"
     if {![my isobject ::$form_id]} {
       #my log  "-- fetching page_template = $page_template"
       ::xo::db::CrClass get_instance_from_db -item_id $form_id
@@ -1972,6 +1973,7 @@
       # we have a template
       return [next]
     } else {
+      #my msg "we have a form '[my get_form]'"
       ::xowiki::Form requireFormCSS
       set form [my get_form]
       foreach {form_vars field_names} [my field_names_from_form -form $form] break
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.147 -r1.148
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	19 May 2008 18:49:15 -0000	1.147
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	19 Jun 2008 13:57:39 -0000	1.148
@@ -1461,6 +1461,9 @@
                -publish_status "production" \
                -instance_attributes $instance_attributes \
                -page_template [my item_id]]
+    if {[my exists state]} {
+      $f set state [my set state]
+    }
     #
     # if we copy an item, we use source_item_id to provide defaults
     #