2 files changed, 4 insertions, 3 deletions

diff --git a/src/Data/Tox/Message.hs b/src/Data/Tox/Message.hs
index b77307a2..29b9f832 100644
--- a/src/Data/Tox/Message.hs
+++ b/src/Data/Tox/Message.hs
@@ -75,8 +75,9 @@ data LossyOrLossless = Lossless | Lossy
 
 -- | Classify a packet as lossy or lossless.
 lossyness :: MessageID -> LossyOrLossless
+lossyness (fromEnum -> 1)                        = Lossless
 lossyness (fromEnum -> x) | x < 3                = Lossy
-lossyness (fromEnum -> x) | {-16 <= x,-} x < 192 = Lossless
+lossyness (fromEnum -> x) | 16 <= x, x < 192     = Lossless
 lossyness (fromEnum -> x) | 192 <= x, x < 255    = Lossy
 lossyness (fromEnum -> 255)                      = Lossless
 
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index b72a07e3..aa63efee 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -815,8 +815,8 @@ runUponHandshake netCryptoSession0 addr pktoq = do
             (nums,seqno) <- atomically $ PB.packetNumbersToRequest pktq
             dput XNetCrypto $ "(Request Thread) Missing Packets detected:" ++ show nums
             getOutGoingParam <- nqToWireIO pktoq
-            sendLossyResult <- sendLossy crypto netCryptoSession0 (createRequestPacket seqno nums)
-            case sendLossyResult of
+            sendPacketRequestResult <- sendLossless crypto netCryptoSession0 (createRequestPacket seqno nums)
+            case sendPacketRequestResult of
                 Left e -> dput XNetCrypto ("SEND PACKET REQUEST FAILED: " ++ e)
                 _ -> dput XNetCrypto ( "SENT PACKET REQUEST (seqno=" ++ show seqno ++") " ++ show nums)
             loop