Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.97.2.9 -r1.97.2.10
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	1 Mar 2014 22:48:59 -0000	1.97.2.9
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	4 Mar 2014 08:44:27 -0000	1.97.2.10
@@ -421,6 +421,10 @@
     # built-in
   }
 
+  ::xo::db::DB instproc transaction {{-dbn ""} script} {
+    return [my uplevel [list ::db_transaction -dbn $dbn $script]]
+  }
+
   ::xo::db::DB instproc sets {{-dbn ""} qn sql} {
     if {$sql eq ""} {set sql [my get_sql $qn]}
     db_with_handle -dbn $dbn db {