Index: openacs-4/packages/acs-tcl/tcl/test/location-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/location-procs.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-tcl/tcl/test/location-procs.tcl	3 Nov 2018 11:15:16 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/test/location-procs.tcl	3 Jul 2019 18:05:13 -0000	1.2.2.1
@@ -32,11 +32,11 @@
             } else {
                 aa_log "run tests with port based on HTTPS"
                 set secure [security::get_secure_location]
-                aa_true "secure location has same proto as current location" {$insecure eq $current_location}
+                aa_true "secure location has same proto as current location" {$secure eq $current_location}
 
                 set insecure [security::get_insecure_location]
                 set ild [ns_parseurl $insecure]
-                aa_true "insecure location starts is HTTP" {[dict get $ild proto] eq "https"}
+                aa_true "insecure location starts is HTTP" {[dict get $ild proto] eq "http"}
             }
         } else {
             aa_log "skip tests with port"