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"
   }