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.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl	15 Jun 2015 11:14:17 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl	27 Jun 2015 16:03:12 -0000	1.5
@@ -23,7 +23,7 @@
     }
 }
 
-set context [list [list "" "Groups"] [list one?[export_vars {group_id}] "One Group"] "Nuke group"]
+set context [list [list "" "Groups"] [list [export_vars -base one {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 [export_vars -form {group_id}]