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.13 -r1.3.2.14
--- openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	31 Jan 2017 13:39:00 -0000	1.3.2.13
+++ openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	31 Jan 2017 15:58:01 -0000	1.3.2.14
@@ -746,11 +746,15 @@
                      $payload_file \
                      $payload_file_fd]
         lassign $app payload payload_file payload_file_fd
-
-        # ...otherwise this will be an 'application/x-www-form-urlencoded' payload
+        
     } else {
-        set content_type "application/x-www-form-urlencoded"
-        ns_set put $headers "Content-type" $content_type
+        # If people specified a content type we won't overwrite it,
+        # otherwise this will be a 'application/x-www-form-urlencoded'
+        # payload
+        if {$req_content_type eq ""} {
+            set content_type "application/x-www-form-urlencoded"
+            ns_set put $headers "Content-type" $content_type
+        }
         set enc [util::http::get_channel_settings $content_type]
         set payload $formvars
     }