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.26 -r1.27
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	4 May 2010 12:30:41 -0000	1.26
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	24 Jun 2010 09:57:57 -0000	1.27
@@ -322,8 +322,9 @@
       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}]
         #my log "REPLY [my set delivery] 200 [my set mime_type]"
-        [my set delivery] 200 [my set mime_type] $text
+        [my set delivery] $status_code [my set mime_type] $text
       }
     }
   }