1 files changed, 1 insertions, 1 deletions

diff --git a/Announcer.hs b/Announcer.hs
index e4b19bd7..6d971ebf 100644
--- a/Announcer.hs
+++ b/Announcer.hs
@@ -179,7 +179,7 @@ listener announcer = relisten
             UnscheduleAction k       -> atomically $ modifyScheduled $ PSQ.delete k
             RunActionSTM k (ScheduledItem f) -> do
               now <- getPOSIXTime
-              join (atomically $ f announcer k now)
+              join . atomically $ modifyScheduled (PSQ.delete k) >> f announcer k now
             DelayAction (k, p, s) -> do
               now <- getPOSIXTime
               atomically $ modifyScheduled $ PSQ.insert' k s (now + p)