Index: openacs-4/packages/xowiki/www/admin/export.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/export.tcl,v
diff -u -N -r1.21 -r1.21.2.1
--- openacs-4/packages/xowiki/www/admin/export.tcl	20 Jul 2013 15:48:35 -0000	1.21
+++ openacs-4/packages/xowiki/www/admin/export.tcl	11 Feb 2014 11:58:19 -0000	1.21.2.1
@@ -18,7 +18,7 @@
 #
 if {$objects eq ""} {
   set sql [$object_type instance_select_query -folder_id $folder_id -with_subtypes true]
-  db_foreach instance_select $sql { set items($item_id) 1 }
+  xo::dc foreach instance_select $sql { set items($item_id) 1 }
 } else {
   foreach o $objects {
     $package_id get_lang_and_name -default_lang [::xo::cc lang] -path $o lang stripped_name