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.3 -r1.4
--- openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl	30 Nov 2002 17:22:35 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl	17 May 2003 10:02:04 -0000	1.4
@@ -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}]"