Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl,v
diff -u -r1.4.10.2 -r1.4.10.3
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl	9 Sep 2013 09:11:33 -0000	1.4.10.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/delete-2.tcl	9 Sep 2013 10:11:52 -0000	1.4.10.3
@@ -25,7 +25,7 @@
 	if { [db_0or1row select_segment_id {
 	    select c.rel_segment as segment_id from rel_constraints c where c.constraint_id = :constraint_id
 	}] } {
-	    set return_url "../one?[export_vars {segment_id}]"
+	    set return_url "../one?[ad_export_vars {segment_id}]"
 	}
     }
 
@@ -51,7 +51,7 @@
 
 } elseif { $return_url eq "" } {
     # if we're not deleting, redirect to the constraint page
-    set return_url one?[export_vars constraint_id]
+    set return_url one?[ad_export_vars constraint_id]
 }