Index: openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl,v
diff -u -N -r1.37.2.2 -r1.37.2.3
--- openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	13 Mar 2014 13:00:02 -0000	1.37.2.2
+++ openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	3 Mar 2015 16:08:22 -0000	1.37.2.3
@@ -71,7 +71,7 @@
   #
   $page instvar item_id
   catch {
-    db_dml delete_old_revisions {
+    ::xo::dc dml delete_old_revisions {
       delete from txt where object_id in \
           (select revision_id from cr_revisions 
            where item_id = :item_id and revision_id != :revision_id)