Index: openacs-4/packages/theme-selva/www/doc/selva-site-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/www/doc/selva-site-master.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/theme-selva/www/doc/selva-site-master.tcl	26 Jul 2005 14:28:30 -0000	1.1
+++ openacs-4/packages/theme-selva/www/doc/selva-site-master.tcl	28 Jun 2015 13:01:06 -0000	1.2
@@ -22,7 +22,7 @@
 # Get system name
 set system_name [ad_system_name]
 set system_url [ad_url]
-if { [string equal [ad_conn url] "/"] } {
+if {[ad_conn url] eq "/"} {
     set system_url ""
 }
 
@@ -34,7 +34,7 @@
     set user_name [person::name -person_id $untrusted_user_id]
     set pvt_home_url [ad_pvt_home]
     set pvt_home_name [ad_pvt_home_name]
-    if [empty_string_p $pvt_home_name] {
+    if {$pvt_home_name eq ""} {
 	set pvt_home_name [_ acs-subsite.Your_Account]
     }
     set logout_url [ad_get_logout_url]
@@ -77,12 +77,11 @@
 # change locale
 set num_of_locales [llength [lang::system::get_locales]]
 if { $num_of_locales > 1 } {
-    set change_locale_url \
-        "/acs-lang/?[export_vars { { package_id "[ad_conn package_id]" } }]"
+    set change_locale_url [export_vars -base /acs-lang { { package_id "[ad_conn package_id]" } }]
 }
 
 # Curriculum bar
-if { [empty_string_p [site_node::get_package_url -package_key curriculum]] } {
+if { [site_node::get_package_url -package_key curriculum] eq "" } {
     set curriculum_bar_p 0
 } else {
     set curriculum_bar_p 1