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.72.2.21 -r1.72.2.22
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	1 Jan 2015 13:45:42 -0000	1.72.2.21
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	11 Jan 2015 21:05:13 -0000	1.72.2.22
@@ -742,7 +742,7 @@
   }
 
   ::xo::system_stats proc gettid {} {
-    set hex [ns_thread getid]
+    set hex [ns_thread id]
     foreach t [ns_info threads] {
       if {[lindex $t 2] eq $hex} {
         return [list name [lindex $t 0] tid [lindex $t 7]]