Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	21 Mar 2018 18:48:13 -0000	1.37
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	22 Mar 2018 12:59:06 -0000	1.38
@@ -392,10 +392,13 @@
       eval [::xo::cc set __continuation]
     } else {
       if {[string length $text] > 1} {
-        set status_code [expr {[::xo::cc exists status_code] ? [::xo::cc set status_code] : 200}]
-        #:log "REPLY ${:delivery} 200 ${:mime_type}"
-        ${:delivery} $status_code ${:mime_type} $text
+        set default_status_code 200
+      } else {
+        set default_status_code 204
       }
+      set status_code [expr {[::xo::cc exists status_code] ? [::xo::cc set status_code] : $default_status_code}]
+      #:log "REPLY ${:delivery} $status_code ${:mime_type} - length: [string length $text] - [ad_conn peeraddr]"
+      ${:delivery} $status_code ${:mime_type} $text
     }
   }