--- a/gameServer/HWProtoNEState.hs	Sat Apr 02 22:17:08 2011 -0400
+++ b/gameServer/HWProtoNEState.hs	Sun Apr 03 13:31:33 2011 +0400
@@ -35,9 +35,7 @@
                 AnswerClients [sendChan cl] ["PROTO", showB parsedProto] :
                 [CheckRegistered | not . B.null $ nick cl]
     where
-        parsedProto = case B.readInt protoNum of
-                           Just (i, t) | B.null t -> fromIntegral i
-                           _ -> 0
+        parsedProto = readInt_ protoNum
 
 
 handleCmd_NotEntered ["PASSWORD", passwd] = do