1 files changed, 2 insertions, 2 deletions

diff --git a/Announcer.hs b/Announcer.hs
index 370ef13a..41c1c2a6 100644
--- a/Announcer.hs
+++ b/Announcer.hs
@@ -177,10 +177,10 @@ listener announcer = relisten
           case cmd of
             ScheduleAction (k, p, s) -> atomically $ modifyScheduled $ PSQ.insert' k s p
             UnscheduleAction k       -> atomically $ modifyScheduled $ PSQ.delete k
-            RunAction io -> io
+            RunAction io -> void $ fork io
             RunActionSTM k (ScheduledItem f) -> do
               now <- getPOSIXTime
-              join . atomically $ modifyScheduled (PSQ.delete k) >> f announcer k now
+              void . fork . 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)