# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1312896187 14400
# Node ID 325222ba620be953b712878afb5e3a847e176264
# Parent  a95ebcff284a89b41c678ec9556098b599422bfa
AAAAARRRARRRRRRGGGGGGGGGHHHHHHGHHHH

diff -r a95ebcff284a -r 325222ba620b src/clojurecraft/in.clj
--- a/src/clojurecraft/in.clj	Tue Aug 09 00:28:51 2011 -0400
+++ b/src/clojurecraft/in.clj	Tue Aug 09 09:23:07 2011 -0400
@@ -631,7 +631,7 @@
 ; Reading Wrappers -----------------------------------------------------------------
 (defn read-packet [bot prev]
   (let [conn (:connection bot)
-        packet-id-byte (-read-byte conn)]
+        packet-id-byte (to-unsigned (-read-byte conn))]
     (let [packet-id (when (not (nil? packet-id-byte))
                       packet-id-byte)
           packet-type (packet-types packet-id)]