diff --git a/Network/Mom/Stompl/Client/Queue.hs b/Network/Mom/Stompl/Client/Queue.hs
--- a/Network/Mom/Stompl/Client/Queue.hs
+++ b/Network/Mom/Stompl/Client/Queue.hs
@@ -462,6 +462,7 @@
                    wName :: String,
                    wRec  :: Bool,
                    wWait :: Bool,
+                   wCntl :: Bool,
                    wTx   :: Bool,
                    wTo   :: OutBound a}
 
@@ -546,6 +547,8 @@
             -- | A queue created with 'OForceTx' will throw 
             --   'QueueException' when used outside a 'Transaction'.
             | OForceTx
+            -- | Do not automatically add a content-length header
+            | ONoContentLen 
     deriving (Show, Read, Eq) 
 
   hasQopt :: Qopt -> [Qopt] -> Bool
@@ -811,9 +814,10 @@
               wCon  = cid,
               wDest = dst,
               wName = qn,
-              wRec  = hasQopt OWithReceipt os, 
-              wWait = hasQopt OWaitReceipt os, 
-              wTx   = hasQopt OForceTx     os, 
+              wRec  = hasQopt OWithReceipt  os, 
+              wWait = hasQopt OWaitReceipt  os, 
+              wTx   = hasQopt OForceTx      os, 
+              wCntl = hasQopt ONoContentLen os,
               wTo   = conv}
 
   ------------------------------------------------------------------------
@@ -1025,8 +1029,8 @@
             let conv = wTo q
             s  <- conv x
             rc <- if wRec q then mkUniqueRecc else return NoRec
-            let m = P.mkMessage P.NoMsg NoSub dest ""
-                                mime (B.length s) tx s x
+            let l = if wCntl q then -1 else B.length s
+            let m = P.mkMessage P.NoMsg NoSub dest "" mime l tx s x
             when (wRec q) $ addRec (wCon q) rc 
             logSend $ wCon q
             P.send (conCon c) m (show rc) hs 
diff --git a/stomp-queue.cabal b/stomp-queue.cabal
--- a/stomp-queue.cabal
+++ b/stomp-queue.cabal
@@ -1,7 +1,7 @@
 Name:            stomp-queue
-Version:         0.1.2
+Version:         0.1.3
 Cabal-Version:   >= 1.8
-Copyright:       Copyright (c) Tobias Schoofs, 2011 - 2013
+Copyright:       Copyright (c) Tobias Schoofs, 2011 - 2014
 License:         LGPL
 license-file:    license/lgpl-3.0.txt
 Author:          Tobias Schoofs
@@ -39,6 +39,10 @@
   .
 
   Release History:
+
+  .
+
+  [0.1.3] New Option for newWriter 'ONoContentLen'
 
   .