Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl,v
diff -u -r1.3.10.3 -r1.3.10.4
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl	9 Sep 2013 10:11:52 -0000	1.3.10.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl	9 Sep 2013 10:17:41 -0000	1.3.10.4
@@ -31,15 +31,15 @@
 
 # If the user has specified a rel_type, redirect to new-2
 if { $rel_type ne "" } {
-    ad_returnredirect new-2?[ad_export_vars {group_id rel_type return_url}]
+    ad_returnredirect new-2?[export_vars {group_id rel_type return_url}]
     ad_script_abort
 } 
 
 permission::require_permission -object_id $group_id -privilege "read"
 
 set context [list [list "" "Relational segments"] "Add segment"]
 
-set export_vars [ad_export_vars -form {group_id return_url}]
+set export_vars [export_vars -form {group_id return_url}]
 # Select out all relationship types
 db_multirow rel_types select_relation_types {
     select t.pretty_name, t.object_type as rel_type,