Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v diff -u -N -r1.45.2.4 -r1.45.2.5 --- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 28 Oct 2020 15:39:19 -0000 1.45.2.4 +++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 13 Jan 2021 12:39:47 -0000 1.45.2.5 @@ -458,7 +458,12 @@ ns_log notice "we can use the http::util:: interface using the $httpImpls implementation" set result [util::http::get -url $url -timeout $timeout -spool] file rename [dict get $result file] $output_file_name - } elseif {[namespace which ::ns_http] ne "" && [apm_version_names_compare [ns_info patchlevel] "4.99.5"] == 1} { + } elseif { + [namespace which ::ns_http] ne "" + && [apm_version_names_compare \ + [regsub -nocase {rc[[:digit:]]*$} [ns_info patchlevel] {}] \ + "4.99.5"] == 1 + } { # # ... use ns_http when we have a version with the "-file" flag ... # Index: openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl,v diff -u -N -r1.30.2.13 -r1.30.2.14 --- openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl 13 Jan 2021 11:25:44 -0000 1.30.2.13 +++ openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl 13 Jan 2021 12:39:47 -0000 1.30.2.14 @@ -207,7 +207,10 @@ if {$preferred eq "native" && [ns_info name] eq "NaviServer" && - [apm_version_names_compare [ns_info patchlevel] "4.99.15"] >= 0} { + [apm_version_names_compare \ + [regsub -nocase {rc[[:digit:]]*$} [ns_info patchlevel] {}] \ + "4.99.15"] >= 0 + } { # Naviserver has ns_http since before version 4.99.15, but # with different features and syntax that we do not want to # support anymore. Fallback will be curl in these cases.