Index: openacs-4/packages/acs-subsite/www/members/member-invite.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/member-invite.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/www/members/member-invite.tcl	17 Dec 2017 18:08:39 -0000	1.12
+++ openacs-4/packages/acs-subsite/www/members/member-invite.tcl	17 Dec 2017 18:36:06 -0000	1.13
@@ -55,12 +55,12 @@
     }
 
     if { ![group::member_p -user_id $user_id -group_id $group_id] } {
-        with_catch errmsg {
+        ad_try {
             group::add_member \
                 -group_id $group_id \
                 -user_id $user_id \
                 -rel_type $rel_type
-        } {
+        } on error {errmsg} {
             form set_error user_search user_id "Error adding user to community: $errmsg"
             ns_log Error "Error adding user $user_id to community group $group_id: $errmsg\n$::errorInfo"
             break