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 -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl	27 Jun 2015 16:03:13 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl	7 Aug 2017 23:47:58 -0000	1.5
@@ -11,7 +11,7 @@
 } {
     segment_id:naturalnum,notnull
     { operation "" }
-    { return_url "" }
+    { return_url:localurl "" }
 } -validate {
     segment_exists_p -requires {segment_id:notnull} {
 	if { ![rel_segments_permission_p -privilege delete $segment_id] } {
@@ -43,3 +43,9 @@
 
 ad_returnredirect $return_url
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: