Index: openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/cluster-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl	29 Dec 2022 13:02:48 -0000	1.1.2.2
+++ openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl	29 Dec 2022 14:14:48 -0000	1.1.2.3
@@ -135,7 +135,7 @@
                 #
                 ns_log notice "--cluster acs_cache operation: $cmd"
                 set allowed 1
-            } else {                
+            } else {
                 set allowed 0
             }
             return $allowed
@@ -145,6 +145,7 @@
         # handle incoming request issues
         #
         :public object method incoming_request {} {
+            catch {::throttle do incr ::count(cluster:receive)}
             set cmd [ns_queryget cmd]
             set addr [lindex [ns_set iget [ns_conn headers] x-forwarded-for] end]
             set sender [ns_set iget [ns_conn headers] host]
@@ -215,11 +216,11 @@
 
             if {[ns_ictl epoch] > 0} {
                 foreach server [:info instances] {
-                    catch {::throttle do incr ::count(cluster:message)}
+                    catch {::throttle do incr ::count(cluster:sent)}
                     set t0 [clock clicks -microseconds]
                     $server message {*}$args
                     set ms [expr {([clock clicks -microseconds] - $t0)/1000}]
-                    catch {::throttle do incr ::agg_time(cluster:message) $ms}
+                    catch {::throttle do incr ::agg_time(cluster:sent) $ms}
                 }
             } else {
                 foreach server [:info instances] {