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.5 -r1.6
--- openacs-4/packages/xowiki/www/admin/delete-type.tcl	26 Jul 2006 22:56:46 -0000	1.5
+++ openacs-4/packages/xowiki/www/admin/delete-type.tcl	9 Aug 2006 10:37:16 -0000	1.6
@@ -10,7 +10,9 @@
   {query "."}
 }
 
-db_foreach retrieve_instances [$object_type instance_select_query] {
+set p [::xowiki::Package create ::[ad_conn package_id]]
+
+db_foreach retrieve_instances [$object_type instance_select_query -folder_id [$p set folder_id]] {
   permission::require_write_permission -object_id $item_id
   $object_type delete -item_id $item_id
 }