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 -N -r1.12 -r1.12.2.1
--- openacs-4/packages/xowiki/www/admin/delete-type.tcl	13 Sep 2012 16:05:32 -0000	1.12
+++ openacs-4/packages/xowiki/www/admin/delete-type.tcl	11 Feb 2014 11:58:19 -0000	1.12.2.1
@@ -13,7 +13,7 @@
 }
 
 set sql [$object_type instance_select_query -with_subtypes 0 -folder_id [::$package_id folder_id]]
-db_foreach retrieve_instances $sql {
+xo::dc foreach retrieve_instances $sql {
   permission::require_write_permission -object_id $item_id
   $package_id delete -item_id $item_id -name $name
 }