Index: openacs-4/packages/xowiki/www/admin/delete-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/delete-type.tcl,v
diff -u -r1.15.2.3 -r1.15.2.4
--- openacs-4/packages/xowiki/www/admin/delete-type.tcl	8 Mar 2023 10:46:42 -0000	1.15.2.3
+++ openacs-4/packages/xowiki/www/admin/delete-type.tcl	28 Apr 2023 13:12:38 -0000	1.15.2.4
@@ -12,6 +12,11 @@
   {-return_url:localurl "."}
 }
 
+if {![nsf::is object $object_type] || ![$object_type isclass ::xowiki::Page]} {
+  ad_return_forbidden
+  ad_script_abort
+}
+
 set sql [$object_type instance_select_query \
              -with_subtypes 0 \
              -folder_id [::$package_id folder_id]]