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.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl	27 Oct 2014 16:39:52 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl	27 Jun 2015 16:03:13 -0000	1.5
@@ -31,7 +31,7 @@
 set export_vars [export_vars -form {segment_id}]
 set context [list \
      [list "[ad_conn package_url]admin/rel-segments/" "Relational segments"] \
-     [list one?[export_vars segment_id] "One segment"] \
+     [list [export_vars -base one segment_id] "One segment"] \
      "Remove segment"]
 
 ad_return_template