Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.211 -r1.211.2.1
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	28 Jun 2015 11:58:50 -0000	1.211
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	18 Aug 2015 12:49:46 -0000	1.211.2.1
@@ -822,8 +822,7 @@
                 $community_id \
                 $user_id \
             ]} errmsg]} {
-                global errorInfo
-                set savedInfo $errorInfo
+                set savedInfo $::errorInfo
 
                 if {[string match -nocase {acs_object_rels_un} $errmsg]} {
                     return