Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -N -r1.148.2.5 -r1.148.2.6
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	11 Mar 2019 13:49:48 -0000	1.148.2.5
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	16 Apr 2019 17:45:13 -0000	1.148.2.6
@@ -2235,7 +2235,7 @@
     }
     if {![info exists ip]} {
       if {[ns_conn isconnected]} {
-        set ip [ns_conn peeraddr]
+        set ip [ad_conn peeraddr]
       } else {
         set ip [ns_info address]
       }