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.42 -r1.93.2.43 --- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 4 Oct 2021 17:18:27 -0000 1.93.2.42 +++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 27 Oct 2021 11:59:10 -0000 1.93.2.43 @@ -884,7 +884,7 @@ set tn [lindex $thread_info 0] set tid [lindex $thread_info 2] dict set tids $tid 1 - if { [info exists thread_name] && ![string match $thread_pattern $tn] } { + if { [info exists thread_pattern] && ![string match $thread_pattern $tn] } { continue } switch -glob -- $tn {