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.2.4.1 -r1.2.4.2
--- openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl	2 Oct 2002 11:31:22 -0000	1.2.4.1
+++ openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl	1 May 2003 19:18:29 -0000	1.2.4.2
@@ -9,6 +9,7 @@
   object_id:integer,notnull
   revoke_list:multiple
   { operation "" }
+  {application_url ""}
 }
 
 permission::require_permission -object_id $object_id -privilege admin
@@ -23,4 +24,4 @@
     }
 }
 
-ad_returnredirect "one?[export_url_vars object_id]"
+ad_returnredirect "one?[export_vars {object_id application_url}]"