diff --git a/R/http.R b/R/http.R
index f9b17ce..d653878 100644
--- a/R/http.R
+++ b/R/http.R
@@ -379,7 +379,7 @@ httpWithBody <- function(authInfo,
   path <- paste(service$path, path, sep="")
   
   # get signature headers and append them
-  sigHeaders <- signatureHeaders(authInfo, "POST", path, file)
+  sigHeaders <- signatureHeaders(authInfo, method, path, file)
   headers <- append(headers, sigHeaders)
   
   # if we have content then write it to a temp file before posting