Index: openacs-4/packages/xowf/tcl/xowf-form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-form-field-procs.tcl,v
diff -u -r1.2.2.2 -r1.2.2.3
--- openacs-4/packages/xowf/tcl/xowf-form-field-procs.tcl	11 May 2016 09:02:24 -0000	1.2.2.2
+++ openacs-4/packages/xowf/tcl/xowf-form-field-procs.tcl	5 Jul 2016 16:36:44 -0000	1.2.2.3
@@ -133,9 +133,9 @@
     return [::xo::cc permission -object_id $package_id -privilege admin -party_id $user_id]
   }
   admin proc get_members {-object_id:required} {
-    set members [xo::dc list_of_lists get_admins "select distinct o.title, p.party_id
-      from acs_object_party_privilege_map p, acs_objects o
-      where p.object_id = :object_id and p.privilege = 'admin' and o.object_id = p.party_id"]
+    set members [permission::get_parties_with_permission \
+                     -privilege admin \
+                     -object_id $object_id]
     #my msg members=$members
     return $members
   }