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.93.2.19 -r1.93.2.20
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	2 Jul 2020 08:31:17 -0000	1.93.2.19
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	14 Jul 2020 19:43:09 -0000	1.93.2.20
@@ -681,7 +681,7 @@
     ::xo::system_stats proc thread_info {pid tid} {
       set s ""
       set fn /proc/$pid/task/$tid/stat
-      if {[file readable $fn]} {
+      if {[ad_file readable $fn]} {
         try {
           set f [open $fn]
           set s [read $f]