diff --git a/src/Network/TigHTTP/HttpTypes.hs b/src/Network/TigHTTP/HttpTypes.hs
--- a/src/Network/TigHTTP/HttpTypes.hs
+++ b/src/Network/TigHTTP/HttpTypes.hs
@@ -36,6 +36,8 @@
 
 import Data.HandleLike
 
+-- import Debug.Trace
+
 type HostName = String
 
 (+++) :: BS.ByteString -> BS.ByteString -> BS.ByteString
@@ -526,8 +528,8 @@
 	ms <- await
 	case ms of
 		Just s -> do
---			lift (hlPut cl s >> hlPut cl "\r\n")
-			lift $ hlPut cl s
+			lift (hlPut cl s >> hlPut cl "\r\n")
+--			lift $ hlPut cl s
 			putAll cl
 		_ -> return ()
 
diff --git a/tighttp.cabal b/tighttp.cabal
--- a/tighttp.cabal
+++ b/tighttp.cabal
@@ -2,7 +2,7 @@
 cabal-version:	>= 1.8
 
 name:		tighttp
-version:	0.0.0.3
+version:	0.0.0.4
 stability:	Experimental
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>