--- a/gameServer/HWProtoNEState.hs	Sun Mar 20 08:42:32 2011 +0000
+++ b/gameServer/HWProtoNEState.hs	Mon Mar 21 21:04:20 2011 +0300
@@ -32,7 +32,7 @@
             else
             return $
                 ModifyClient (\c -> c{clientProto = parsedProto}) :
-                AnswerClients [sendChan cl] ["PROTO", B.pack $ show parsedProto] :
+                AnswerClients [sendChan cl] ["PROTO", showB parsedProto] :
                 [CheckRegistered | not . B.null $ nick cl]
     where
         parsedProto = case B.readInt protoNum of