Index: openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl,v
diff -u -r1.3.2.8 -r1.3.2.9
--- openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	21 Jan 2017 15:06:12 -0000	1.3.2.8
+++ openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	21 Jan 2017 18:26:10 -0000	1.3.2.9
@@ -679,9 +679,11 @@
     # Body will be appended as is to the payload
     set body "${payload}${body}"
     
-    # some servers (e.g. Google) will demand this header in case of
-    # POST requests
-    ns_set put $headers "Content-length" [string length $body]
+    if {[ns_set iget $headers "transfer-encoding"] ne "chunked"} {
+        # some servers (e.g. Google) will demand this header in case of
+        # POST requests
+        ns_set put $headers "Content-length" [string length $body]
+    }
 
     return [util::http::request \
                 -method          POST \