Index: openacs-4/packages/xotcl-core/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/chat-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	26 Nov 2009 12:02:16 -0000	1.18
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	21 Feb 2013 12:31:33 -0000	1.19
@@ -141,6 +141,7 @@
 	nsv_unset $array-last-activity $user 
 	nsv_unset $array-login $user
 	nsv_unset $array-color $user
+	catch {::bgdelivery do ::Subscriber sweep chat-[my chat_id]}
       }
     }
     my log "-- ending"