Index: openacs-4/www/default-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/default-master.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/www/default-master.tcl	25 Sep 2007 15:22:41 -0000	1.23
+++ openacs-4/www/default-master.tcl	6 Oct 2007 13:30:07 -0000	1.24
@@ -11,7 +11,7 @@
 #
 set system_name [ad_system_name]
 
-if { [string equal [ad_conn url] "/"] } {
+if {[ad_conn url] eq "/"} {
     set system_url ""
 } else {
     set system_url [ad_url]
@@ -118,7 +118,7 @@
 set acs_lang_url [apm_package_url_from_key "acs-lang"]
 set num_of_locales [llength [lang::system::get_locales]]
 
-if {[empty_string_p $acs_lang_url]} {
+if {$acs_lang_url eq ""} {
     set lang_admin_p 0
 } else {
     set lang_admin_p [permission::permission_p \