diff --git a/src/Data/Binary.hs b/src/Data/Binary.hs
index ec5104a2e..7398e6b84 100644
--- a/src/Data/Binary.hs
+++ b/src/Data/Binary.hs
@@ -701,7 +701,7 @@ instance (Binary a, Binary b) => Binary (Either a b) where
 instance Binary B.ByteString where
     put bs = do put (B.length bs)
                 putByteString bs
-    get    = liftM B.copy (get >>= getByteString)
+    get    = get >>= getByteString
 
 --
 -- Using old versions of fps, this is a type synonym, and non portable