Index: openacs-4/packages/notifications/tcl/sweep-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/sweep-init.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/notifications/tcl/sweep-init.tcl	11 Sep 2024 06:15:52 -0000	1.8
+++ openacs-4/packages/notifications/tcl/sweep-init.tcl	20 Dec 2024 12:14:51 -0000	1.9
@@ -14,6 +14,11 @@
                          -default 900]
 ad_schedule_proc -thread t $cleanupInterval notification::sweep::cleanup_notifications
 
+#
+# Cleanup leftover SSE handles.
+#
+ad_schedule_proc -thread t 60 notification::sweep::cleanup_sse_subscriptions
+
 foreach interval [notification::get_all_intervals] {
     set n_seconds [lindex $interval 2]
     if {$n_seconds > 0} {