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.22 -r1.23
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	30 Nov 2006 20:03:13 -0000	1.22
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	1 Dec 2006 08:37:16 -0000	1.23
@@ -360,13 +360,12 @@
     }
     eval $cmd
   }
-  Package instproc gsm {} {
+  Package instproc google-sitemap {} {
     my instvar id
-    ::xowiki::Page gsm -package_id $id
+    ::xowiki::Page [self proc] -package_id $id
   }
-  Package instproc sitemapindex {} {
-    my log "--HERE"
-    ::xowiki::Page sitemapindex
+  Package instproc google-sitemapindex {} {
+    ::xowiki::Page [self proc]
   }
 
   Package instproc edit-new {} {
@@ -509,12 +508,12 @@
   Policy policy1 -contains {
   
     Class Package -array set require_permission {
-      reindex            swa
-      rss                none
-      gsm                none
-      sitemapindex       none
-      delete             {{id admin}}
-      edit-new           {{{has_class ::xowiki::Object} id admin} {id create}}
+      reindex             swa
+      rss                 none
+      google-sitemap      none
+      google-sitemapindex none
+      delete              {{id admin}}
+      edit-new            {{{has_class ::xowiki::Object} id admin} {id create}}
     }
     
     Class Page -array set require_permission {