Index: openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl,v
diff -u -r1.2.26.2 -r1.2.26.3
--- openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl	9 Sep 2013 10:11:51 -0000	1.2.26.2
+++ openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl	9 Sep 2013 10:17:39 -0000	1.2.26.3
@@ -23,9 +23,9 @@
     }
 }
 
-set context [list [list "" "Groups"] [list one?[ad_export_vars {group_id}] "One Group"] "Nuke group"]
+set context [list [list "" "Groups"] [list one?[export_vars {group_id}] "One Group"] "Nuke group"]
 set group_name [db_string object_name {select acs_object.name(:group_id) from dual}]
-set export_form_vars [ad_export_vars -form {group_id}]
+set export_form_vars [export_vars -form {group_id}]
 
 db_1row select_counts {
     select (select count(*) from group_element_map where group_id = :group_id) as elements,