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.7 -r1.8
--- openacs-4/packages/xowiki/www/admin/delete-type.tcl	17 Aug 2006 01:44:26 -0000	1.7
+++ openacs-4/packages/xowiki/www/admin/delete-type.tcl	14 Nov 2006 12:18:43 -0000	1.8
@@ -12,8 +12,8 @@
   {-return_url "."}
 }
 
-set sql [$object_type instance_select_query -folder_id [::$package_id folder_id]]
-db_foreach retrieve_instances $sql
+set sql [$object_type instance_select_query -with_subtypes:boolean 0 -folder_id [::$package_id folder_id]]
+db_foreach retrieve_instances $sql {
   permission::require_write_permission -object_id $item_id
   $object_type delete -item_id $item_id
 }