Index: openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl,v
diff -u -N -r1.61 -r1.62
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	5 Aug 2018 21:16:25 -0000	1.61
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	31 Aug 2018 11:16:45 -0000	1.62
@@ -339,6 +339,7 @@
     #ns_log notice "SEND <$msg> [:mode]"
     :log ""
     if {[:mode] eq "scripted"} {
+      ::sec_handler_reset
       set emsg [encoding convertto utf-8 $msg]
       #ns_log notice "SEND data <$msg> encoded <$emsg>"
       set smsg "<script type='text/javascript' nonce='$::__csp_nonce'>\nvar data = $emsg;\n\
@@ -359,7 +360,7 @@
       set subs1 [list]
       foreach s [set :subscriptions($key)] {
         if {[catch {$s $method $argument} errMsg]} {
-          ns_log error "error in $method to subscriber $s (key=$key): $errMsg"
+          ns_log error "error in $method to subscriber $s (key=$key): $errMsg\n$::errorInfo"
           $s destroy
         } else {
           lappend subs1 $s