Index: openacs-4/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/www/blank-master.tcl	20 Jul 2006 03:30:43 -0000	1.20
+++ openacs-4/www/blank-master.tcl	10 Jan 2007 21:22:14 -0000	1.21
@@ -71,7 +71,7 @@
     }
 }
 
-if {![empty_string_p $onload]} { 
+if {$onload ne ""} { 
     multirow append attribute onload [join $onload " "]
 }
 
@@ -117,7 +117,7 @@
 # Toggle translator mode link
 
 set acs_lang_url [apm_package_url_from_key "acs-lang"]
-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 \