Index: openacs-4/packages/acs-subsite/www/permissions/revoke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/revoke.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/www/permissions/revoke.tcl	23 Apr 2018 21:32:46 -0000	1.8
+++ openacs-4/packages/acs-subsite/www/permissions/revoke.tcl	20 Jun 2018 10:05:53 -0000	1.9
@@ -26,14 +26,14 @@
 
     <hr>
     Are you sure you want to remove the following entries from the access
-    control list of [db_string name {}]?
+    control list of [acs_object_name $object_id]?
     <ul>
 }]
 
 foreach item $revoke_list {
     lassign $item party_id privilege
     append body [subst {
-        <li>[db_string party_name {}]</li>
+        <li>[party::name -party_id $party_id]</li>
     }]
 }