Index: openacs-4/packages/ajaxhelper/www/doc/default-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/www/doc/default-master.tcl,v
diff -u -N -r1.1 -r1.1.2.1
--- openacs-4/packages/ajaxhelper/www/doc/default-master.tcl	8 Sep 2007 14:21:22 -0000	1.1
+++ openacs-4/packages/ajaxhelper/www/doc/default-master.tcl	8 Sep 2013 08:11:58 -0000	1.1.2.1
@@ -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]
@@ -114,7 +114,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 \