diff --git a/hbs2-core/lib/HBS2/Actors/Peer.hs b/hbs2-core/lib/HBS2/Actors/Peer.hs
index fd419362..2eb2e9db 100644
--- a/hbs2-core/lib/HBS2/Actors/Peer.hs
+++ b/hbs2-core/lib/HBS2/Actors/Peer.hs
@@ -275,7 +275,7 @@ instance ( HasProtocol e p
         void $ liftIO $ atomically $ modifyTVar' se (HashMap.delete sk)
         pers <- forM subs $ \r -> do
                   ev <- MaybeT $ pure $ fromDynamic @(EventHandler e p (PeerM e IO)) r
-                  lift $ ev d
+                  liftIO $ withPeerM env $  ev d
                   if isPersistent @(Event e p) then
                     pure [r]
                   else