diff --git a/Kevin/Damn/Protocol.hs b/Kevin/Damn/Protocol.hs
--- a/Kevin/Damn/Protocol.hs
+++ b/Kevin/Damn/Protocol.hs
@@ -132,6 +132,7 @@
         countUser <- numUsers roomname usname
         let us = mkUser roomname pcs modifiedPkt
         addUser roomname us
+        klogError $ show (usname, pcs, countUser, pkt, modifiedPkt, us, username us)
         if countUser == 0
             then do
                 I.sendJoin usname roomname
@@ -210,7 +211,7 @@
 
     where
         pkt = fromJust $ subPacket spk
-        modifiedPkt = parsePacket (T.replace "\n\npc" "\npc" $ pkt^.body._Just)
+        modifiedPkt = parsePacket (T.replace "\n\npc" "\npc" $ readable pkt)
         arg s = pkt^.args.ix s
 
 respond pkt "kicked" = do
diff --git a/Kevin/Version.hs b/Kevin/Version.hs
--- a/Kevin/Version.hs
+++ b/Kevin/Version.hs
@@ -4,7 +4,7 @@
 import Data.Version
 
 version :: Version
-version = Version [0,7,1] []
+version = Version [0,7,2] []
 
 versionStr :: Text
 versionStr = pack $ showVersion version
diff --git a/kevin.cabal b/kevin.cabal
--- a/kevin.cabal
+++ b/kevin.cabal
@@ -1,5 +1,5 @@
 Name:             kevin
-Version:          0.7.1
+Version:          0.7.2
 Synopsis:         a dAmn ↔ IRC proxy
 Description:      a dAmn ↔ IRC proxy
 License:          GPL