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.30.4.1 -r1.30.4.2
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	27 Aug 2013 11:50:27 -0000	1.30.4.1
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	28 Sep 2013 14:49:10 -0000	1.30.4.2
@@ -63,14 +63,14 @@
             if { $string_p } {
                 return $text
             }
-            ReturnHeaders $mime_type
-            ns_write $text
+            ns_return 200 $mime_type $text
         }
         file {
             set path [cr_fs_path $storage_area_key]
             set filename [db_string write_file_content ""]
 	    if {$filename eq ""} {
-		ad_return -code error "No content for the revision $revision_id. This seems to be an error which occured during the upload of the file"
+		ad_return -code error "No content for the revision $revision_id.\
+		This seems to be an error which occured during the upload of the file"
 	    } else {
 		if { $string_p } {
 		    set fd [open $filename "r"]