Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v diff -u -r1.153.2.33 -r1.153.2.34 --- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 22 Feb 2021 15:27:11 -0000 1.153.2.33 +++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 3 May 2021 08:55:27 -0000 1.153.2.34 @@ -835,7 +835,7 @@ } trap {AD EXCEPTION ad_script_abort} {r} { rp_finish_serving_page rp_debug "rp_filter: page aborted return filter_return" - ns_log notice "rp_filter: aborted url <[ad_conn extra_url]>" + ns_log notice "rp_filter: aborted url <[ad_conn extra_url]> '$r'" set result filter_return } on ok {r} { rp_debug "rp_filter: return filter_ok" Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v diff -u -r1.141.2.33 -r1.141.2.34 --- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 19 Mar 2021 13:31:13 -0000 1.141.2.33 +++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 3 May 2021 08:55:27 -0000 1.141.2.34 @@ -943,6 +943,7 @@ # should we return the package at the passed-in node/url? if { $include_self_p && $package_key ne ""} { set node [site_node::get -url $url] + #ns_log notice "=== [list site_node::get -url $url] => '$node'" if {[dict get $node package_key] in $package_key} { return [dict get $node $element] Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v diff -u -r1.189.2.83 -r1.189.2.84 --- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 12 Mar 2021 10:28:16 -0000 1.189.2.83 +++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl 3 May 2021 08:55:27 -0000 1.189.2.84 @@ -3717,12 +3717,12 @@ if {[ad_file readable $file_name]} { set result [template::util::read_file $file_name] } else { - set result [{*}$call] + set result [uplevel $call] template::util::write_file $file_name $result } } } else { - set result [{*}$call] + set result [uplevel $call] } return $result }