Index: openacs-4/packages/acs-admin/www/auth/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-admin/www/auth/index.tcl	23 Oct 2003 10:40:29 -0000	1.6
+++ openacs-4/packages/acs-admin/www/auth/index.tcl	10 Jan 2007 21:22:00 -0000	1.7
@@ -128,10 +128,10 @@
     set sort_order_url_up "authority-set-sort-order?[export_vars { authority_id {direction up} }]"
     set sort_order_url_down "authority-set-sort-order?[export_vars { authority_id {direction down} }]"
 
-    if { [string equal $authority_id $register_authority_id] } {
+    if {$authority_id eq $register_authority_id} {
         # The authority is selected as register authority
         set registration_status "selected"
-    } elseif { ![empty_string_p $reg_impl] } {
+    } elseif { $reg_impl ne "" } {
         # The authority can be selected as register authority
         set registration_status "can_select"
         set registration_url [export_vars -base authority-registration-select { authority_id }]