Index: openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl,v
diff -u -r1.23 -r1.23.2.1
--- openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	10 Dec 2018 18:26:57 -0000	1.23
+++ openacs-4/packages/acs-subsite/tcl/application-group-procs.tcl	21 Jul 2020 13:58:55 -0000	1.23.2.1
@@ -25,7 +25,7 @@
 
 } {
 
-    if {$package_id eq "" && [ad_conn isconnected]} {
+    if {$package_id eq "" && [ns_conn isconnected]} {
         set package_id [ad_conn package_id]
     }
 
@@ -79,7 +79,7 @@
     [ad_conn package_id]).
 } {
 
-    if {$package_id eq "" && [ad_conn isconnected]} {
+    if {$package_id eq "" && [ns_conn isconnected]} {
         set package_id [ad_conn package_id]
     }
 
@@ -115,7 +115,7 @@
 
 } {
 
-    if {$package_id eq "" && [ad_conn isconnected]} {
+    if {$package_id eq "" && [ns_conn isconnected]} {
         set package_id [ad_conn package_id]
     }
 
@@ -150,7 +150,7 @@
     empty string if the application group doesn't exist.
 } {
 
-    if { [ad_conn isconnected] && $package_id eq "" } {
+    if { [ns_conn isconnected] && $package_id eq "" } {
         set package_id [ad_conn package_id]
     }
 
@@ -201,7 +201,7 @@
     Returns the group_id of the new application group.
 } {
 
-    if { [ad_conn isconnected] } {
+    if { [ns_conn isconnected] } {
         # Since we have a connection, default user_id / peeraddr
         # if they're not specified
         if { $creation_user eq "" } {