--- a/netserver/Miscutils.hs	Sat Jan 03 19:01:50 2009 +0000
+++ b/netserver/Miscutils.hs	Sat Jan 03 20:48:37 2009 +0000
@@ -181,3 +181,9 @@
 			team : teams
 		else
 			t : replaceTeam team teams
+
+proto2ver :: Word16 -> String
+proto2ver 17 = "0.9.7-dev"
+proto2ver 19 = "0.9.7"
+proto2ver 20 = "0.9.8-dev"
+proto2ver _ = "Unknown"
\ No newline at end of file