Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -r1.67.2.32 -r1.67.2.33
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	21 Nov 2020 23:55:24 -0000	1.67.2.32
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	26 Nov 2020 17:03:49 -0000	1.67.2.33
@@ -1332,6 +1332,22 @@
     }
   }
 
+  Users proc forget_community {community_id} {
+    #
+    # Forget all the data about users in a community, meant to be
+    # called when a community is being deleted, so that we stop its
+    # tracking.
+    #
+    foreach {key data} [array get :user_in_community] {
+      if {[dict get $data community_id] == $community_id} {
+        unset -nocomplain :user_in_community($key)
+      }
+    }
+    foreach i [Users info instances] {
+      $i unset -nocomplain in_community($community_id)
+    }
+  }
+
   Users proc compute_nr_users_per_day {} {
     #
     # this method is just for maintenance issues and updates the