Index: openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl,v
diff -u -r1.7.2.2 -r1.7.2.3
--- openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	13 Dec 2019 14:17:42 -0000	1.7.2.2
+++ openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	21 Jul 2020 13:58:55 -0000	1.7.2.3
@@ -42,7 +42,7 @@
     @return The <code>segment_id</code> of the new segment
 
 } {
-    if { [ad_conn isconnected] } {
+    if { [ns_conn isconnected] } {
         if { $creation_user eq "" } {
             set creation_user [ad_conn user_id]
         }