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 -N -r1.77.2.2 -r1.77.2.3
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	1 Aug 2007 21:39:24 -0000	1.77.2.2
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	2 Aug 2007 12:12:13 -0000	1.77.2.3
@@ -916,7 +916,11 @@
       google-sitemap      none
       google-sitemapindex none
       delete              {{id admin}}
-      edit-new            {{{has_class ::xowiki::Object} id admin} {id create}}
+      edit-new            {
+	{{has_class ::xowiki::Object} id admin} 
+	{{has_class ::xowiki::FormPage} nobody} 
+	{id create}
+      }
     }
     
     Class Page -array set require_permission {
@@ -956,7 +960,11 @@
       google-sitemap      none
       google-sitemapindex none
       delete              swa
-      edit-new            {{{has_class ::xowiki::Object} swa} {id create}}
+      edit-new            {
+	{{has_class ::xowiki::Object} swa} 
+	{{has_class ::xowiki::FormPage} nobody} 
+	{id create}
+      }
     }
     
     Class Page -array set require_permission {
@@ -991,7 +999,11 @@
       google-sitemap      none
       google-sitemapindex none
       delete              swa
-      edit-new            {{{has_class ::xowiki::Object} swa} {id create}}
+      edit-new            {
+	{{has_class ::xowiki::Object} swa} 
+	{{has_class ::xowiki::FormPage} nobody} 
+	{id create}
+      }
     }
     
     Class Page -array set require_permission {
@@ -1014,11 +1026,11 @@
     }
   }
 
-  Policy policy4 -contains {
-    ::xotcl::Object function -array set require_permission {
-      f none
-    } -set default_permission login
-  }
+  #Policy policy4 -contains {
+  #  ::xotcl::Object function -array set require_permission {
+  #    f none
+  #  } -set default_permission login
+  #}
   
   #my log "--set granted [policy4 check_permissions -user_id 0 -package_id 0 function f]"
 }