Index: openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl 11 Feb 2008 02:24:57 -0000 1.13 +++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl 29 Feb 2008 22:43:36 -0000 1.14 @@ -211,6 +211,7 @@ set size [file size $filename] #ns_setexpires 1000000 #ns_log notice "expires-set $filename" + if {[my write_headers $statuscode $mime_type $size]} { set ch [ns_conn channel] thread::transfer [my get_tid] $ch Index: openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl 18 Mar 2007 11:31:33 -0000 1.2 +++ openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl 29 Feb 2008 22:43:36 -0000 1.3 @@ -9,8 +9,11 @@ ns_log notice "-- before-install callback" if {[info command ::xotcl::Class] eq ""} { error " XOTcl does not appear to be installed on your system!\n\ - Please follow the install instructions on http://www.openacs.org/xowiki/pages/en/xotcl-core" + Please follow the install instructions on http://www.openacs.org/xowiki/xotcl-core" + } elseif {$::xotcl::version < 1.5} { + error " XOTcl 1.5 or newer required. You are using $::xotcl::version$::xotcl::patchlevel.\n\ + Please install a new version of XOTcl (see http://www.openacs.org/xowiki/xotcl-core)" } else { - ns_log notice "XOTcl [package require XOTcl] appears to be installed on your system." + ns_log notice "XOTcl $::xotcl::version$::xotcl::patchlevel is installed on your system." } }