Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.232 -r1.233
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	4 Apr 2013 16:07:18 -0000	1.232
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	11 Apr 2013 12:56:23 -0000	1.233
@@ -1332,7 +1332,7 @@
       -extend_slot validator party_id_check
   party_id instproc check=party_id_check {value} {
     if {$value eq ""} {return 1}
-    return [db_0or1row [my qn check_party] "select 1 from parties where party_id = :value"]
+    return [::xo::db_0or1row check_party {select 1 from parties where party_id = :value}]
   }
 
   ###########################################################
@@ -2189,8 +2189,8 @@
     # We should support as well user level instance attributes.
     set entry_label [string trimleft $entry_label _]
 
-    db_1row [my qn [self proc]] "select $entry_label from cr_items ci, cr_revisions cr
-      where cr.revision_id = ci.live_revision and ci.item_id = $item_id"
+    ::xo::db_1row [self proc] "select $entry_label from cr_items ci, cr_revisions cr
+      where cr.revision_id = ci.live_revision and ci.item_id = :item_id"
     return [set $entry_label]
   }
   abstract_page instproc get_entry_label {value} {