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 -N -r1.78.2.15 -r1.78.2.16
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	16 Aug 2016 18:06:43 -0000	1.78.2.15
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	29 Sep 2016 19:50:54 -0000	1.78.2.16
@@ -569,6 +569,14 @@
     set t1 [clock clicks -milliseconds]
     ns_log notice "ON DELETE done ([expr {$t1-$t0}]ms)"
   }
+
+  proc ::xo::stats {{msg ""}} {
+    set xobjs   [llength [::xotcl::Object info instances -closure]]
+    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"
+  }
   
   #
   # ::xo::Module is very similar to a plain tcl namespace: When it is