Index: openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl	19 Jan 2018 14:09:48 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl	21 Jan 2018 00:35:29 -0000	1.8
@@ -35,8 +35,10 @@
 }   } err_msg] } {
     # Does this pair already exists?
     if { ![db_string exists_p {select count(*) from group_type_rels where group_type = :group_type and rel_type = :rel_type}] } {
-	ad_return_error "Error inserting to database" $err_msg
-	return
+	ad_return_error \
+            "Error inserting to database" \
+            $err_msg
+	ad_script_abort
     }
 
 }