Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.43 -r1.44
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	7 Mar 2007 21:54:22 -0000	1.43
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	7 Mar 2007 22:34:38 -0000	1.44
@@ -791,17 +791,29 @@
     expr {[my isclass $c] ? [$c array names require_permission] : [list]}
   }
 
-  Policy instproc check_privilege {privilege object method} {
+  Policy instproc check_privilege {{-login true} privilege object method} {
     set allowed -1   ;# undecided
     if {[acs_user::site_wide_admin_p]} {
       return 1
     }
     switch $privilege {
       none  {return 1}
-      login {auth::require_login; return 1}
+      login {
+        if {$login} {
+          auth::require_login; return 1
+        } else {
+          return [expr {[::xo::cc user_id] != 0}]
+        }
+      }
       creator {
         if {[$object exists creation_user]} {
-          auth::require_login
+          if {$login} {
+            auth::require_login
+          } else {
+            if {[::xo::cc user_id] == 0} {
+              return 0
+            }
+          }
           if {[$object set creation_user] == [::xo::cc user_id]} {
             set allowed 1
           } else {
@@ -857,7 +869,7 @@
 
         foreach {kind p} [my get_privilege $permission $object $method] break
         switch $kind {
-          primitive {return [my check_privilege $p $object $method]}
+          primitive {return [my check_privilege -login false $p $object $method]}
           complex {
             foreach {attribute privilege} $p break
             set id [$object set $attribute]
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.35 -r1.36
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	7 Mar 2007 21:54:22 -0000	1.35
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	7 Mar 2007 22:34:38 -0000	1.36
@@ -64,7 +64,7 @@
       if {[$data istype ::xowiki::PageInstance]} {
         set s [$data get_field_type page_order "" ""]
         if {$s ne ""} {
-          my set f.page_order $page_order:$s
+          my set f.page_order page_order:$s
         }
       }
     }