Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -N -r1.78.2.64 -r1.78.2.65
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	5 Nov 2019 10:12:58 -0000	1.78.2.64
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	22 Jan 2021 16:46:14 -0000	1.78.2.65
@@ -1831,7 +1831,7 @@
             lappend result [list \
                                 proto $proto \
                                 driver [dict get $i module] \
-                                host [dict get $li host] \
+                                host [lindex [dict get $i address] 0] \
                                 location $location port $port suffix $suffix]
         }
         return $result