Index: openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl,v
diff -u -N -r1.20.2.6 -r1.20.2.7
--- openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	27 Nov 2022 17:35:47 -0000	1.20.2.6
+++ openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	2 Aug 2023 13:25:05 -0000	1.20.2.7
@@ -261,8 +261,9 @@
     }
     set :tid $tid
   }
-  #:log "calling [self class] ($tid, [pid]) $args"
-  if {$async} {
+  if {[ns_info shutdownpending]} {
+    :log "thread send operation ignored due to pending shutdown: $args"
+  } elseif {$async} {
     return [thread::send -async $tid $args]
   } else {
     return [thread::send $tid $args]