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.78.2.16 -r1.78.2.17
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	29 Sep 2016 19:50:54 -0000	1.78.2.16
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	30 Sep 2016 18:00:57 -0000	1.78.2.17
@@ -575,7 +575,8 @@
     set nobjs   [llength [::nx::Object info instances  -closure]]
     set tmpObjs [llength [info commands ::nsf::__#*]]
     set tdoms   [llength [concat [info commands domNode0*] [info commands domDoc0x*]]]
-    ns_log notice "xo::stats $msg: current objects xotcl $xobjs nx $nobjs tmp $tmpObjs tDOM $tdoms"
+    set nssets  [llength [ns_set list]]
+    ns_log notice "xo::stats $msg: current objects xotcl $xobjs nx $nobjs tmp $tmpObjs tDOM $tdoms ns_set $nssets"
   }
   
   #