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.109 -r1.110
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	30 Apr 2002 21:23:30 -0000	1.109
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	4 May 2002 04:25:32 -0000	1.110
@@ -684,6 +684,7 @@
                 $community_id \
                 $user_id \
             ]} errmsg]} {
+                global errorInfo
                 set savedInfo $errorInfo
         
                 if {[string match -nocase {acs_object_rels_un} $errmsg]} {