Index: openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl	27 Oct 2014 16:39:50 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl	27 Jun 2015 16:03:12 -0000	1.6
@@ -21,7 +21,7 @@
 set return_url_enc [ad_urlencode "[ad_conn url]?[ad_conn query]"]
 
 set doc(title) [_ acs-subsite.Add_a_permissible_relationship_type]
-set context [list [list "[ad_conn package_url]admin/group-types/" [_ acs-subsite.Group_Types]] [list one?[export_vars {group_type}] $group_type] $doc(title)]
+set context [list [list "[ad_conn package_url]admin/group-types/" [_ acs-subsite.Group_Types]] [list [export_vars -base one {group_type}] $group_type] $doc(title)]
 
 
 # Select out all the relationship types that are not currently