1 files changed, 2 insertions, 1 deletions

diff --git a/Presence/ConsoleWriter.hs b/Presence/ConsoleWriter.hs
index aca4bf98..9fce6701 100644
--- a/Presence/ConsoleWriter.hs
+++ b/Presence/ConsoleWriter.hs
@@ -254,8 +254,9 @@ writeAllPty cw msg = do
     us <- atomically $ readTVar (csUtmp cw)
     let ptys = Map.filterWithKey ispty us
         ispty k _ = "pts/" `Text.isPrefixOf` k
+                    && Text.all isDigit (Text.drop 4 k)
     bs <- forM (Map.toList ptys) $ \(tty,utmp) -> do
-        deliverTerminalMessage cw tty utmp msg
+        deliverTerminalMessage cw ("/dev/" <> tty) utmp msg
     return $ or bs 
 
 resource :: UtmpRecord -> Text