Index: openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl	7 Aug 2017 23:47:58 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl	21 Jan 2018 00:35:29 -0000	1.7
@@ -21,13 +21,16 @@
 
 if { ![db_0or1row select_info {}] } {
     ad_return_error "Relation already removed." "Please back up and reload"
-    return
+    ad_script_abort
 }
 
 permission::require_permission -object_id $group_id -privilege admin
 
 set export_vars [export_vars -form {group_rel_id return_url}]
-set context [list [list "[ad_conn package_url]admin/groups/" "Groups"] [list [export_vars -base one {group_id}] "One group"] "Remove relation type"]
+set context [list \
+                 [list "[ad_conn package_url]admin/groups/" "Groups"] \
+                 [list [export_vars -base one {group_id}] "One group"] \
+                 "Remove relation type"]
 
 ad_return_template