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.156 -r1.157
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	11 Jul 2002 04:30:33 -0000	1.156
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	12 Jul 2002 21:26:48 -0000	1.157
@@ -1716,19 +1716,19 @@
             }
 
             db_dml update_portal_id {
-                update dotlrn_communities
+                update dotlrn_communities_all
                 set portal_id = NULL
                 where community_id = :community_id
             }
 
             db_dml update_admin_portal_id {
-                update dotlrn_communities
+                update dotlrn_communities_all
                 set admin_portal_id = NULL
                 where community_id = :community_id
             }
 
             db_dml update_non_member_portal_id {
-                update dotlrn_communities
+                update dotlrn_communities_all
                 set non_member_portal_id = NULL
                 where community_id = :community_id
             }