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 -N -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/permissions/revoke.tcl	27 Jun 2015 16:03:14 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/permissions/revoke.tcl	7 Aug 2017 23:47:59 -0000	1.7
@@ -26,15 +26,15 @@
 
     <hr>
     Are you sure you want to remove the following entries from the access
-    control list of [db_string name {select acs_object.name(:object_id) from dual}]?
+    control list of [db_string name {}]?
     <ul>
 }]
 
 foreach item $revoke_list {
     set party_id [lindex $item 0]
     set privilege [lindex $item 1]
     append body [subst {
-	<li>[db_string party_name {select acs_object.name(:party_id) from dual}]</li>
+	<li>[db_string party_name {}]</li>
     }]
 }
 
@@ -55,3 +55,9 @@
     </form>
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: