Index: openacs-4/packages/xowiki/www/admin/set-publish-state.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/set-publish-state.tcl,v
diff -u -r1.16.2.1 -r1.16.2.2
--- openacs-4/packages/xowiki/www/admin/set-publish-state.tcl	11 Mar 2022 16:57:20 -0000	1.16.2.1
+++ openacs-4/packages/xowiki/www/admin/set-publish-state.tcl	15 May 2023 10:47:24 -0000	1.16.2.2
@@ -8,14 +8,14 @@
   @param object_type
   @param query
 } -parameter {
-  {-state:required}
+  {-state:wordchar,required}
   {-revision_id:integer,required}
-  {-return_url "."}
+  {-return_url:localurl "."}
 }
 
 set page [::xo::db::CrClass get_instance_from_db -revision_id $revision_id]
 # ensure page is from the current package
-if {$package_id != [$page package_id]} {
+if {$package_id != [$page package_id] || $state ni {production ready live expired}} {
   ad_return_forbidden
   ad_script_abort
 }