Index: openacs-4/packages/acs-admin/www/auth/authority-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/auth/authority-delete.tcl	11 Sep 2003 09:21:27 -0000	1.2
+++ openacs-4/packages/acs-admin/www/auth/authority-delete.tcl	10 Jan 2007 21:22:00 -0000	1.3
@@ -8,7 +8,7 @@
 }
 
 # Cannot delete local authority
-if { [string equal $authority_id [auth::authority::local]] } {
+if {$authority_id eq [auth::authority::local]} {
     ad_return_error "Cannot delete local authority" "The system requires the local authority to operate."
 }