Index: openacs-4/packages/acs-automated-testing/acs-automated-testing.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/acs-automated-testing.info,v
diff -u -r1.47.2.8 -r1.47.2.9
--- openacs-4/packages/acs-automated-testing/acs-automated-testing.info	16 Sep 2021 08:27:27 -0000	1.47.2.8
+++ openacs-4/packages/acs-automated-testing/acs-automated-testing.info	9 May 2022 17:05:48 -0000	1.47.2.9
@@ -7,7 +7,7 @@
     <initial-install-p>t</initial-install-p>
     <singleton-p>t</singleton-p>
 
-    <version name="5.10.0" url="http://openacs.org/repository/download/apm/acs-automated-testing-5.10.0.apm">
+    <version name="5.10.1d1" url="http://openacs.org/repository/download/apm/acs-automated-testing-5.10.1d1.apm">
 	<owner url="http://openacs.org">OpenACS</owner>
 	<summary>The interface to the automated testing facilities within OpenACS.</summary>
 	<release-date>2021-09-15</release-date>
@@ -19,7 +19,7 @@
 	OpenACS system.  Also provides a UI for managing
 	automatic-rebuild servers as in a test farm.</description>
 
-	<provides url="acs-automated-testing" version="5.10.0"/>
+	<provides url="acs-automated-testing" version="5.10.1d1"/>
 	<requires url="acs-kernel" version="5.10.0"/>
 	<requires url="acs-tcl" version="5.10.0"/>
         <requires url="acs-api-browser" version="5.10.0"/>
Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.79.2.58 -r1.79.2.59
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	9 Apr 2022 15:20:46 -0000	1.79.2.58
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	9 May 2022 17:05:48 -0000	1.79.2.59
@@ -588,7 +588,7 @@
 } {
     # probably transitional code for testing purposes
     if {[info commands ::aa::coverage::add_traces] ne ""} {
-        aa::coverage::add_traces
+        catch {aa::coverage::add_traces}
     }
 
     set ::aa_run_quietly_p $quiet_p
@@ -1246,7 +1246,8 @@
         {-depth 1}
         {-headers ""}
         {-prefix ""}
-        {-verbose:boolean 1}
+        {-verbose:boolean true}
+        {-basic_auth:boolean false}
         request
     } {
 
@@ -1309,6 +1310,14 @@
             lappend extra_args -body $body
         }
 
+        if {[dict exists $user_info email]
+            && [dict exists $user_info password]
+        } {
+            set ah [ns_base64encode [dict get $user_info email]:[dict get $user_info password]]
+            aa_log "... user_info $user_info AH $ah"
+            lappend headers Authorization "Basic $ah"
+        }
+
         if {[llength $headers] > 0} {
             set requestHeaders [ns_set create]
             foreach {tag value} $headers {
@@ -1317,7 +1326,6 @@
             lappend extra_args -headers $requestHeaders
         }
 
-
         #
         # Construct a nice log line
         #
@@ -1333,6 +1341,7 @@
         #
         # Run actual request
         #
+        set d ""
         try {
             set location $url
             while {$depth > 0} {
@@ -1363,6 +1372,7 @@
             set ms [format %.2f [expr {[ns_time format [dict get $d time]] * 1000.0}]]
             aa_log "${prefix}$method $request returns [dict get $d status] in ${ms}ms"
         }
+
         #aa_log "REPLY has headers [dict exists $d headers]"
         if {[dict exists $d headers]} {
             set cookies {}