Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.314 -r1.315
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	21 Mar 2013 21:14:28 -0000	1.314
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	11 Apr 2013 12:56:24 -0000	1.315
@@ -298,15 +298,17 @@
 
   Page instproc delete-revision {} {
     my instvar revision_id package_id item_id 
-    db_1row [my qn get_revision] "select latest_revision,live_revision from cr_items where item_id = $item_id"
+    ::xo::db_1row get_revision {
+      select latest_revision,live_revision from cr_items where item_id = :item_id
+    }
     # do real deletion via package
     $package_id delete_revision -revision_id $revision_id -item_id $item_id
     # Take care about UI specific stuff....
     set redirect [my query_parameter "return_url" \
                       [export_vars -base [$package_id url] {{m revisions}}]]
     if {$live_revision == $revision_id} {
       # latest revision might have changed by delete_revision, so we have to fetch here
-      db_1row [my qn get_revision] "select latest_revision from cr_items where item_id = $item_id"
+      xo::db_1row [my qn get_revision] "select latest_revision from cr_items where item_id = $item_id"
       if {$latest_revision eq ""} {
         # we are out of luck, this was the final revision, delete the item
         my instvar package_id name