Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl,v
diff -u -r1.12 -r1.12.2.1
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	4 Mar 2004 14:52:37 -0000	1.12
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	31 Mar 2004 03:14:35 -0000	1.12.2.1
@@ -71,8 +71,14 @@
             if { $string_p } {
                 return [db_blob_get write_lob_content ""]
             }
+	    # need to set content_length header here
+	    ns_set put [ns_conn outputheaders] ContentLength $content_length
             ReturnHeaders $mime_type
-            db_write_blob write_lob_content ""
+	    # also need to check for HEAD method and skip sending
+	    # actual content
+	    if {![string equal -nocase "head" [ns_conn method]]} {
+		db_write_blob write_lob_content ""
+	    }
         }
     }