Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	1 Mar 2007 10:25:10 -0000	1.33
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	7 Mar 2007 20:12:41 -0000	1.34
@@ -59,7 +59,13 @@
     my instvar data autoname
     set __fields ""
     set field_list [my field_list]
-    if {[my show_page_order]} {set field_list [linsert $field_list 2 page_order]}
+    if {[my show_page_order]} {
+      set field_list [linsert $field_list 2 page_order]
+      set s [$data get_field_type page_order "" ""]
+      if {$s ne ""} {
+	my set f.page_order $page_order:$s
+      }
+    }
     if {$autoname} {
       my f.name {name:text(hidden),optional}
     }