[be a bit more paranoid about binary data
John Meacham <john@repetae.net>**20061123013921] hunk ./Binary.hs 175
-    putByte h (fromIntegral (w `unsafeShiftR` 8))
+    putByte h (fromIntegral ((w `unsafeShiftR` 8) .&. 0xff))
hunk ./Binary.hs 188
-    putByteIO ix h (fromIntegral (w `unsafeShiftR` 24))
+    putByteIO ix h (fromIntegral ((w `unsafeShiftR` 24) .&. 0xff))