Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl	7 Aug 2017 23:47:58 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/one.tcl	21 Jan 2018 00:35:29 -0000	1.8
@@ -31,8 +31,10 @@
 set context [list [list "./" "Relational segments"] "One segment"]
 
 if { ![db_0or1row select_segment_properties {} -column_array props] } {
-    ad_return_error "Segment does not exist" "Segment $segment_id does not exist"
-    return
+    ad_return_error \
+        "Segment does not exist" \
+        "Segment $segment_id does not exist"
+    ad_script_abort
 }
 
 set props(role_pretty_plural) [lang::util::localize $props(role_pretty_plural)]