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 -N -r1.36 -r1.37
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	4 Oct 2018 10:07:02 -0000	1.36
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	5 Oct 2018 19:16:00 -0000	1.37
@@ -99,23 +99,21 @@
 
         # Set default values for columns not provided
         foreach column $all_columns {
-            if { [lsearch $names $column] == -1 } {
+            if { $column ni $names } {
                 set $column $column_defaults($column)
             }
         }
 
-        if { ![info exists context_id] || $context_id eq "" } {
-            set context_id [ad_conn package_id]
-        }
-
-        if { ![info exists creation_user] || $creation_user eq "" } {
+        if {[ns_conn is_connected]} {
+            set context_id    [ad_conn package_id]
             set creation_user [ad_conn user_id]
+            set creation_ip   [ad_conn peeraddr]
+        } else {
+            set context_id    ""
+            set creation_user ""
+            set creation_ip   ""
         }
 
-        if { ![info exists creation_ip] || $creation_ip eq "" } {
-            set creation_ip [ad_conn peeraddr]
-        }
-
         # Auto generate short name if not provided and make
         # sure it's unique
         # TODO: check for max length 255?