Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl,v
diff -u -N -r1.2 -r1.2.10.1
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl	10 Jan 2007 21:22:07 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl	9 Sep 2013 09:11:33 -0000	1.2.10.1
@@ -27,7 +27,7 @@
 	    select s.group_id from rel_segments s where s.segment_id = :segment_id
 	} -default ""]
 	if { $group_id ne "" } {
-	    set return_url "../groups/one?[ad_export_vars group_id]"
+	    set return_url "../groups/one?[export_vars group_id]"
 	}
     }
 
@@ -38,7 +38,7 @@
 } 
 
 if { $return_url eq "" } {
-    set return_url "one?[ad_export_vars {segment_id}]"
+    set return_url "one?[export_vars {segment_id}]"
 }
 
 ad_returnredirect $return_url