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.14 -r1.93.2.15
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	18 May 2020 21:20:20 -0000	1.93.2.14
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	25 May 2020 14:48:44 -0000	1.93.2.15
@@ -758,6 +758,7 @@
     set threadInfo [:gettid]
     if {$threadInfo ne ""} {
       set i [:thread_info [pid] [dict get $threadInfo tid]]
+      lappend i {*}$threadInfo
       if {[dict exists $i stime]} {
         set group [:thread_classify [dict get $i name]]
         nsv_incr [self] $group,stime [dict get $i stime]