Index: openacs-4/packages/acs-authentication/tcl/authority-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.tcl,v
diff -u -N -r1.22 -r1.23
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	4 Mar 2004 14:52:35 -0000	1.22
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	12 Mar 2004 18:48:45 -0000	1.23
@@ -265,6 +265,12 @@
 
     get_flush -authority_id $authority_id
     get_id_flush -short_name $old_short_name
+
+    # check if we need to update the object title
+    set new_short_name [get_element -authority_id $authority_id -element short_name]
+    if {![string equal $old_short_name $new_short_name]} {
+	db_dml update_object_title {}
+    }
 }
 
 ad_proc -public auth::authority::delete {