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.9 -r1.9.4.1
--- openacs-4/packages/xowiki/www/admin/delete-type.tcl	3 Dec 2006 12:21:47 -0000	1.9
+++ openacs-4/packages/xowiki/www/admin/delete-type.tcl	12 Dec 2008 13:49:07 -0000	1.9.4.1
@@ -15,10 +15,10 @@
 set sql [$object_type instance_select_query -with_subtypes 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
+  $package_id delete -item_id $item_id -name $name
 }
 
 # drop type requires that all pages of all xowiki instances are deleted
-#foreach type [$object_type object_types -subtypes_first true] {$type drop_object_type}
+# foreach type [$object_type object_types -subtypes_first true] {$type drop_object_type}
 
 ad_returnredirect $return_url