Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl,v
diff -u -r1.4.22.2 -r1.4.22.3
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl	9 Sep 2013 09:11:33 -0000	1.4.22.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl	9 Sep 2013 10:11:52 -0000	1.4.22.3
@@ -39,7 +39,7 @@
 
 set context [list [list "[ad_conn package_url]admin/rel-segments/" "Relational segments"] "Add segment"]
 
-set export_vars [export_vars -form {group_id rel_type return_url}]
+set export_vars [ad_export_vars -form {group_id rel_type return_url}]
 
 db_1row select_basic_info {
     select acs_group.name(:group_id) as group_name,