Index: openacs-4/packages/acs-authentication/tcl/authority-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	5 Oct 2018 19:16:00 -0000	1.37
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	7 Oct 2018 17:42:27 -0000	1.38
@@ -104,7 +104,7 @@
             }
         }
 
-        if {[ns_conn is_connected]} {
+        if {[ns_conn isconnected]} {
             set context_id    [ad_conn package_id]
             set creation_user [ad_conn user_id]
             set creation_ip   [ad_conn peeraddr]