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 {