Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v
diff -u -r1.31.2.14 -r1.31.2.15
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	29 Apr 2015 11:16:24 -0000	1.31.2.14
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	18 May 2015 09:20:11 -0000	1.31.2.15
@@ -306,9 +306,9 @@
          and i.publish_status = 'production' and i.name = r.revision_id::varchar
          $extra_clause
       "
-      ::xo::dc foreach get_revisions $sql {
+      foreach tuple [::xo::dc list_of_lists get_revisions $sql] {
         #::xotcl::Object msg "tuple = $tuple"
-        lassign $tuple name package_id item_id revision_id last_modified 
+        lassign $tuple name package_id item_id revision_id last_modified
         set time [clock scan [::xo::db::tcl_date $last_modified tz_var]]
         if {$time > $older_than} continue
         ::xotcl::Object log "...will delete $name doit=$doit $last_modified"