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.20 -r1.21
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	2 Mar 2004 17:01:23 -0000	1.20
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	4 Mar 2004 14:52:48 -0000	1.21
@@ -269,14 +269,6 @@
         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 {} {