Index: openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl	22 Apr 2001 16:13:15 -0000	1.2
@@ -18,7 +18,7 @@
 	foreach item $revoke_list {
 	    set party_id [lindex $item 0]
 	    set privilege [lindex $item 1]
-	    db_dml revoke {
+	    db_exec_plsql revoke {
 		begin
 		    acs_permission.revoke_permission(:object_id, :party_id, :privilege);
 		end;