Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/new.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/new.tcl	7 Aug 2017 23:47:58 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/new.tcl	21 Jan 2018 00:35:29 -0000	1.8
@@ -81,8 +81,9 @@
 }]
 
 if { [llength $segment_list] == 0 } {
-    ad_return_complaint 1 "<li> There are currently no other segments. You must have at least two segments before you can create a constraint"
-    return
+    ad_return_complaint 1 \
+        "<li> There are currently no other segments. You must have at least two segments before you can create a constraint"
+    ad_script_abort
 }
 
 template::element create constraint_new required_rel_segment \
@@ -113,14 +114,16 @@
     } on_error {
 	if { $ctr == 0 } {
 	    # Return the error message
-	    ad_return_error "Error creating the constraint" "We got the following error while trying to create the constraint: <pre>$errmsg</pre>"
-	    return
+	    ad_return_error \
+                "Error creating the constraint" \
+                "We got the following error while trying to create the constraint: <pre>$errmsg</pre>"
+	    ad_script_abort
 	} 
     }
     if { $ctr > 0 } {
 	# show the user the erroneous relations, then abort
 	ad_return_template violations
-	return
+	ad_script_abort
     }
     if { $return_url eq "" } {
 	set return_url "../one?segment_id=$rel_segment"