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.81 -r1.82
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	11 Oct 2017 07:12:53 -0000	1.81
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	5 Dec 2017 13:26:14 -0000	1.82
@@ -661,12 +661,16 @@
   ::xotcl::Object create ::xo::system_stats
 
   if {$::tcl_platform(os) eq "Linux"} {
+
     ::xo::system_stats proc thread_info {pid tid} {
       set fn /proc/$pid/task/$tid/stat
       if {[file readable $fn]} {
-        set f [open $fn]; set s [read $f]; close $f
+        set s [try {open $fn} on ok f {read $f} finally {close $f}]
+        ns_log notice fn=$fn
       } elseif {[file readable /proc/$pid/task/$pid/stat]} {
-        set f [open /proc/$pid/task/$pid/stat]; set s [read $f]; close $f
+        set fn /proc/$pid/task/$pid/stat
+        set s [try {open $fn} on ok f {read $f} finally {close $f}]
+        ns_log notice fn=$fn
       } else {
         return ""
       }