Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.189.2.73 -r1.189.2.74
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	9 Dec 2020 14:28:40 -0000	1.189.2.73
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	29 Jan 2021 15:37:23 -0000	1.189.2.74
@@ -1199,6 +1199,9 @@
         set binary [expr {$text_p ? "" : "-binary"}]
         ns_headers {*}$binary 200 $content_type {*}$content_length
     } else {
+        if {$content_length ne ""} {
+            ns_set put [ns_conn outputheaders] "Content-Length" $content_length
+        }
         set all_the_headers "HTTP/1.0 200 OK
 MIME-Version: 1.0
 Content-Type: $content_type\r\n"