diff --git a/Database/MongoDB/BSON.hs b/Database/MongoDB/BSON.hs
--- a/Database/MongoDB/BSON.hs
+++ b/Database/MongoDB/BSON.hs
@@ -294,10 +294,11 @@
 putVal (BsonArray es)   = putOutterObj bs
     where bs = runPut $ forM_ (List.zip [(0::Int) .. ] es) $ \(i, e) ->
                putType e >> putS (L8.fromString $ show i) >> putVal e
-putVal (BsonBinary t bs)= do putI32 $ fromIntegral $ 4 + L.length bs
-                             putI8 $ fromBinarySubType t
-                             putI32 $ fromIntegral $ L.length bs
-                             putLazyByteString bs
+putVal (BsonBinary t bs) = do
+  putI32 $ fromIntegral $ (if t == BSTByteArray then 4 else 0) + L.length bs
+  putI8 $ fromBinarySubType t
+  when (t == BSTByteArray) $ putI32 $ fromIntegral $ L.length bs
+  putLazyByteString bs
 putVal BsonUndefined    = putNothing
 putVal (BsonObjectId o) = putWord64be (fromIntegral $ o `shiftR` 32) >>
                           putWord32be (fromIntegral $ o .&. 0xffffffff)
diff --git a/mongoDB.cabal b/mongoDB.cabal
--- a/mongoDB.cabal
+++ b/mongoDB.cabal
@@ -1,5 +1,5 @@
 Name:                mongoDB
-Version:             0.4
+Version:             0.4.1
 License:             MIT
 Maintainer:          Scott Parish <srp@srparish.net>
 Author:              Scott Parish <srp@srparish.net>