Index: openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/http-client-procs.tcl,v
diff -u -N -r1.1.2.9 -r1.1.2.10
--- openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl	9 Jan 2020 14:08:01 -0000	1.1.2.9
+++ openacs-4/packages/acs-tcl/tcl/test/http-client-procs.tcl	9 Jan 2020 15:40:29 -0000	1.1.2.10
@@ -161,7 +161,7 @@
                 set headers [ns_set create headers]
                 ns_set put $headers "Content-Type" $content_type
 
-                aa_log "POST request - ContentType: '$content_type' - Implementation: '$impl'"
+                aa_section " - POST request - ContentType: '$content_type' - Implementation: '$impl'"
                 if {$impl ne "ns_http"} {
                     set r [util::http::post -preference $impl -url $url/post -body $json_data -headers $headers]
                     set json_response [dict get $r page]
@@ -190,8 +190,7 @@
                 aa_equals "Value is correct" $resp_string $test_string
 
 
-                aa_log "GET request - ContentType: '$content_type' - Implementation: '$impl'"
-
+                aa_section " - GET request - ContentType: '$content_type' - Implementation: '$impl'"
                 if {$impl ne "ns_http"} {
                     set r [util::http::get -preference $impl -url $get_url -headers $headers]
                     set json_response [dict get $r page]