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.3 -r1.3.2.1
--- openacs-4/packages/acs-subsite/www/permissions/revoke.tcl	18 Sep 2002 12:16:44 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/permissions/revoke.tcl	1 May 2003 19:18:29 -0000	1.3.2.1
@@ -8,6 +8,7 @@
 } {
   object_id:integer,notnull
   {revoke_list:multiple,optional {}}
+  {application_url ""}
 }
 
 ad_require_permission $object_id admin
@@ -38,7 +39,7 @@
 doc_body_append "</ul>
 
 <form method=get action=revoke-2>
-[export_form_vars object_id]
+[export_vars -form {object_id application_url}]
 
 "