Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl,v
diff -u -r1.3.26.2 -r1.3.26.3
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl	9 Sep 2013 09:11:33 -0000	1.3.26.2
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl	9 Sep 2013 10:11:52 -0000	1.3.26.3
@@ -28,10 +28,10 @@
      where s.segment_id = :segment_id
 }
 
-set export_vars [export_vars segment_id]
+set export_vars [export_form_vars segment_id]
 set context [list \
      [list "[ad_conn package_url]admin/rel-segments/" "Relational segments"] \
-     [list one?[export_vars segment_id] "One segment"] \
+     [list one?[ad_export_vars segment_id] "One segment"] \
      "Remove segment"]
 
 ad_return_template