diff --git a/Hsbot/Message.hs b/Hsbot/Message.hs
index dd15f75..9bb77f1 100644
--- a/Hsbot/Message.hs
+++ b/Hsbot/Message.hs
@@ -1,6 +1,7 @@
 module Hsbot.Message
     ( answerMsg
     , getCommand
+    , getDestination
     , readMsg
     , writeMsg
     ) where
@@ -36,3 +37,8 @@ getCommand (IRC.Message _ _ (_:msg:[])) = do
         else return []
 getCommand _ = return []
 
+-- | Get the destination of a message
+getDestination :: IRC.Message -> String
+getDestination (IRC.Message _ _ (dest:_:[])) = dest
+getDestination _ = ""
+
diff --git a/hsbot.cabal b/hsbot.cabal
index f92af2d..50536d0 100644
--- a/hsbot.cabal
+++ b/hsbot.cabal
@@ -1,5 +1,5 @@
 Name:               hsbot
-Version:            0.4.12
+Version:            0.4.13
 Cabal-version:      >=1.2
 Synopsis:           A multipurposes IRC bot
 Description: