diff --git a/hoauth.cabal b/hoauth.cabal
--- a/hoauth.cabal
+++ b/hoauth.cabal
@@ -1,5 +1,5 @@
 name: hoauth
-version: 0.2.4
+version: 0.2.5
 category: Network,Protocol,OAuth
 license: BSD3
 license-file: LICENSE
diff --git a/src/main/haskell/Network/OAuth/Consumer.hs b/src/main/haskell/Network/OAuth/Consumer.hs
--- a/src/main/haskell/Network/OAuth/Consumer.hs
+++ b/src/main/haskell/Network/OAuth/Consumer.hs
@@ -115,14 +115,14 @@
 
 -- | The OAuth Token.
 data Token =   
-  {-| There is no valid token present, all requests go unauthenticated.
-   -}
+  {-| This token is used to perform 2 legged OAuth requests. -}
     TwoLegg {application :: Application 
             ,oauthParams :: FieldList
             }
-  {-| The service provider has granted you the request token but the user has
-      not yet authorized your application. If you use this token it will goes
-      as 2 legged OAuth.
+  {-| The service provider has granted you the request token but the
+      user has not yet authorized your application. You need to
+      exchange this token by a proper AccessToken, but this may only
+      happen after user has granted you permission to do so.
    -}
   | ReqToken {application :: Application
              ,oauthParams :: FieldList
diff --git a/src/main/haskell/Network/OAuth/Http/HttpClient.hs b/src/main/haskell/Network/OAuth/Http/HttpClient.hs
--- a/src/main/haskell/Network/OAuth/Http/HttpClient.hs
+++ b/src/main/haskell/Network/OAuth/Http/HttpClient.hs
@@ -67,8 +67,6 @@
           
           curlMethod = case (method req)
                        of GET   -> [CurlHttpGet True]
-                          POST  -> [CurlPost True]
-                          PUT   -> [CurlPut True]
                           HEAD  -> [CurlNoBody True,CurlCustomRequest "HEAD"]
                           other -> if (B.null.reqPayload $ req)
                                    then [CurlHttpGet True,CurlCustomRequest (show other)]
@@ -77,9 +75,8 @@
                          then []
                          else [CurlPostFields [map (chr.fromIntegral).B.unpack.reqPayload $ req]]
           curlHeaders = let headers = (map (\(k,v) -> k++": "++v).toList.reqHeaders $ req)
-                        in [CurlHttpHeaders $"Expect: " 
-                                            :("Content-Length: " ++ (show.B.length.reqPayload $ req))
-                                            :headers
+                        in [CurlHttpHeaders $ ("Content-Length: " ++ (show.B.length.reqPayload $ req))
+                                              : headers
                            ]
 
           opts = [CurlURL (showURL req)