Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	4 Mar 2004 14:52:48 -0000	1.21
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	12 Mar 2004 18:48:54 -0000	1.22
@@ -269,6 +269,14 @@
         set    [join $set_clauses ", "]
         where  group_id = :group_id
     "
+
+    if {[info exists group_name]} {
+	db_dml update_object_title {
+	    update acs_objects
+	    set title = :group_name
+	    where object_id = :group_id
+	}
+    }
 }
 
 ad_proc -public group::possible_member_states {} {