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.34 -r1.35 --- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 20 Oct 2017 11:59:56 -0000 1.34 +++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl 12 Dec 2017 10:48:33 -0000 1.35 @@ -387,14 +387,14 @@ :handle_http_caching - #my log "REPLY [::xo::cc exists __continuation]" + #:log "REPLY [::xo::cc exists __continuation]" if {[::xo::cc exists __continuation]} { - #my log "REPLY [::xo::cc set __continuation]" + #:log "REPLY [::xo::cc set __continuation]" 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 ${:delivery} 200 ${:mime_type}" + #:log "REPLY ${:delivery} 200 ${:mime_type}" ${:delivery} $status_code ${:mime_type} $text } }