Index: openacs-4/packages/acs-tcl/tcl/00-icanuse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-icanuse-procs.tcl,v
diff -u -r1.1.2.45 -r1.1.2.46
--- openacs-4/packages/acs-tcl/tcl/00-icanuse-procs.tcl	5 Oct 2023 15:52:32 -0000	1.1.2.45
+++ openacs-4/packages/acs-tcl/tcl/00-icanuse-procs.tcl	24 Oct 2023 16:11:12 -0000	1.1.2.46
@@ -116,6 +116,7 @@
 ::acs::register_icanuse "ns_parseurl -strict"       [acs::cmd_error_contains ns_parseurl -strict]
 ::acs::register_icanuse "ns_server unmap"           [acs::cmd_has_subcommand ns_server unmap]
 ::acs::register_icanuse "ns_set keys"               [acs::cmd_has_subcommand ns_set keys]
+::acs::register_icanuse "ns_set stats"              [acs::cmd_has_subcommand ns_set stats]
 ::acs::register_icanuse "ns_set values"             [acs::cmd_has_subcommand ns_set values]
 ::acs::register_icanuse "ns_setcookie -samesite"    [acs::cmd_error_contains ns_setcookie -samesite]
 ::acs::register_icanuse "ns_urlencode -part oauth1" [acs::cmd_error_contains {ns_urlencode -part xxx} oauth1]
Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.93.2.62 -r1.93.2.63
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	22 Oct 2023 15:58:07 -0000	1.93.2.62
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	24 Oct 2023 16:11:11 -0000	1.93.2.63
@@ -705,7 +705,7 @@
     set nobjs   [llength [::nx::Object info instances  -closure]]
     set tmpObjs [llength [info commands ::nsf::__#*]]
     set tdoms   [llength [list {*}[info commands domNode0*] {*}[info commands domDoc0x*]]]
-    set nssets  [llength [ns_set list]]
+    set nssets  [expr {[acs::icanuse "ns_set stats"] ? [list [ns_set stats]] : [llength [ns_set list]]}]
     ns_log notice "xo::stats $msg: current objects xotcl $xobjs nx $nobjs tmp $tmpObjs tDOM $tdoms ns_set $nssets"
   }