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 -r1.68.2.2 -r1.68.2.3
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	8 Apr 2019 13:05:35 -0000	1.68.2.2
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	10 Apr 2019 13:11:21 -0000	1.68.2.3
@@ -322,7 +322,7 @@
     if {[catch {set eof [eof $channel]}]} {set eof 1}
     :log "sweep [:channel] EOF $eof"
     if {$eof} {
-      error "connection $channel closed by peer"
+      throw {AD_CLIENTDISCONNECT} "connection $channel closed by peer"
     }
     # make an IO attempt to trigger EOF
     if {[catch {
@@ -331,7 +331,7 @@
       set x [read $channel]
       fconfigure $channel -blocking $blocking
     } errorMsg]} {
-      error "connection $channel closed due to IO error"
+      throw {AD_CLIENTDISCONNECT} "connection $channel closed due to IO error"
     }
   }