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.92 -r1.93
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	20 Jan 2019 15:22:58 -0000	1.92
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	30 Jan 2019 20:29:40 -0000	1.93
@@ -774,9 +774,13 @@
   # after a request was processed (defined in this file).
   #
   ::xotcl::Object create ::xo::broadcast
-  ::xo::broadcast proc send {cmd} {
+  ::xo::broadcast proc send {-thread_pattern cmd} {
     foreach thread_info [ns_info threads] {
-      switch -glob -- [lindex $thread_info 0] {
+      set tn [lindex $thread_info 0]
+      if { [info exists thread_name] && ![string match $thread_pattern $tn] } {
+        continue
+      }
+      switch -glob -- $tn {
         -conn:* -
         -sched:* {
           set tid [lindex $thread_info 2]