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.20 -r1.72.2.21
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	17 Sep 2014 20:10:55 -0000	1.72.2.20
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	1 Jan 2015 13:45:42 -0000	1.72.2.21
@@ -766,12 +766,15 @@
   }
 
   ::xo::system_stats proc recordtimes {} {
-    array set i [my gettid]
-    array set i [my thread_info [pid] $i(tid)]
-    if {[info exists i(stime)]} {
-      set group [my thread_classify $i(name)]
-      nsv_incr [self] $group,stime $i(stime)
-      nsv_incr [self] $group,utime $i(utime)
+    set threadInfo [my gettid]
+    if {$threadInfo ne ""} {
+      array set i $threadInfo
+      array set i [my thread_info [pid] $i(tid)]
+      if {[info exists i(stime)]} {
+        set group [my thread_classify $i(name)]
+        nsv_incr [self] $group,stime $i(stime)
+        nsv_incr [self] $group,utime $i(utime)
+      }
     }
   }