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 -N -r1.381 -r1.382
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	30 Nov 2009 10:22:00 -0000	1.381
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	12 Dec 2009 10:53:37 -0000	1.382
@@ -2234,12 +2234,12 @@
     }
     set form_item_id [my item_id]
     set items [::xowiki::FormPage get_form_entries \
-                   -base_item_ids $form_item_id -form_fields "" \
-                   -publish_status ready -package_id $package_id]
+                   -base_item_ids $form_item_id -form_fields "" -initialize false \
+                   -publish_status all -package_id $package_id]
     # collect all instances attributes of all items
     foreach i [$items children] {array set vars [$i set instance_attributes]}
     array set vars [list _name 1 _last_modified 1 _creation_user 1]
-    set attributes [lsort [array names vars]]
+    set attributes [lsort -dictionary [array names vars]]
     # make sure, we the includelet honors the cvs generation
     set includelet_key name:form-usages,form_item_ids:$form_item_id,field_names:[join $attributes " "],
     ::xo::cc set queryparm(includelet_key) $includelet_key
@@ -2327,6 +2327,7 @@
        {-orderby ""}
        {-page_size 20}
        {-page_number ""}
+       {-initialize true}
      } {
     #
     # Get query attributes for all tables (to allow e.g. sorting by time)
@@ -2426,7 +2427,7 @@
     set named_objects [expr {$always_queried_attributes eq "*"}]
     set items [::xowiki::FormPage instantiate_objects -sql $sql \
                    -named_objects $named_objects -object_named_after "item_id" \
-                   -object_class ::xowiki::FormPage]
+                   -object_class ::xowiki::FormPage -initialize $initialize]
 
     if {!$use_hstore && $wc(tcl) ne "true"} {
       # Make sure, that the expr method is available;