Index: openacs-4/packages/contacts/www/admin/permissions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/permissions.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/contacts/www/admin/permissions.tcl	19 Aug 2004 01:21:41 -0000	1.1.2.2
+++ openacs-4/packages/contacts/www/admin/permissions.tcl	22 Aug 2004 23:57:54 -0000	1.1.2.3
@@ -8,7 +8,7 @@
 } {
     object_id:integer
 }
-db_1row get_object_name { select acs_object__name(:object_id) as object_name }
+set object_name [db_string get_object_name {}]
 set title "Permissions for $object_name"
 set context [list $title]