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 -r1.45.2.3 -r1.45.2.4
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	13 Jul 2020 12:02:33 -0000	1.45.2.3
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	28 Oct 2020 15:39:19 -0000	1.45.2.4
@@ -458,7 +458,7 @@
         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 {[info commands ::ns_http] ne "" && [apm_version_names_compare [ns_info patchlevel] "4.99.5"] == 1} {
+    } elseif {[namespace which ::ns_http] ne "" && [apm_version_names_compare [ns_info patchlevel] "4.99.5"] == 1} {
         #
         # ... use ns_http when we have a version with the "-file" flag ...
         #
@@ -474,7 +474,7 @@
             ns_log notice "Transfer $url redirected to $location ..."
             set url $location
         }
-    } elseif {[info commands ::xo::HttpRequest] ne ""} {
+    } elseif {[namespace which ::xo::HttpRequest] ne ""} {
         #
         # ... use xo::HttpRequest...
         #