Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -r1.40.2.4 -r1.40.2.5
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	3 Jul 2020 07:43:20 -0000	1.40.2.4
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	21 Jul 2020 13:58:55 -0000	1.40.2.5
@@ -521,7 +521,7 @@
     @creation-date 12/29/2000
 
 } {
-    set author [expr {[ad_conn isconnected] ?
+    set author [expr {[ns_conn isconnected] ?
                       [acs_user::get_element -element name] : "Unknown"}]
     set creation_date [db_string current_timestamp {
         select current_timestamp from dual}]
@@ -721,7 +721,7 @@
         set package_name $acs_type(package_name)
     }
 
-    if { [ad_conn isconnected] } {
+    if { [ns_conn isconnected] } {
         if { $creation_user eq "" } {
             set creation_user [ad_conn user_id]
         }
@@ -818,7 +818,7 @@
 
     set object_id [db_exec_plsql create_object {}]
 
-    if { [ad_conn isconnected] } {
+    if { [ns_conn isconnected] } {
         subsite::callback -object_type $object_type "insert" $object_id
     }