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 -r1.4.4.2 -r1.4.4.3
--- openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl	9 Sep 2013 10:11:50 -0000	1.4.4.2
+++ openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add.tcl	9 Sep 2013 10:17:39 -0000	1.4.4.3
@@ -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?[ad_export_vars {group_type}] $group_type] $doc(title)]
+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)]
 
 
 # Select out all the relationship types that are not currently
@@ -49,6 +49,6 @@
 }
 
 
-set export_vars [ad_export_vars -form {group_type return_url}]
+set export_vars [export_vars -form {group_type return_url}]
 
 ad_return_template