Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl	16 May 2019 09:54:29 -0000	1.7.2.1
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl	2 Jan 2020 17:29:20 -0000	1.7.2.2
@@ -41,7 +41,10 @@
 # Select out all relationship types
 db_multirow rel_types select_relation_types {}
 
-db_1row select_basic_info {}
+set group_name [db_string select_basic_info {
+    select group_name from groups
+    where group_id = :group_id
+}]
 
 ad_return_template