Index: openacs-4/packages/dotlrn/www/dotlrn-master-custom.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-master-custom.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/dotlrn-master-custom.tcl	29 Sep 2013 13:49:45 -0000	1.4
+++ openacs-4/packages/dotlrn/www/dotlrn-master-custom.tcl	1 Nov 2013 21:08:31 -0000	1.5
@@ -2,7 +2,7 @@
 set community_id [dotlrn_community::get_community_id]
 set dotlrn_package_id [dotlrn::get_package_id]
 
-if {![empty_string_p $community_id]} {
+if {$community_id ne ""} {
     set dotlrn_master [dotlrn_community::get_dotlrn_master -community_id $community_id]
 } elseif {$user_id } {
     set dotlrn_master [dotlrn::get_dotlrn_master -user_id $user_id]
@@ -12,11 +12,11 @@
 }
 
 # Set page title
-if { ![info exists doc(title)] && [exists_and_not_null title] } {
+if { ![info exists doc(title)] && [info exists title] && $title ne "" } {
     set doc(title) $title
-} elseif { [info exists doc(title)] && ![exists_and_not_null title] } {
+} elseif { [info exists doc(title)] && ![info exists title] || $title eq "" } {
     set title $doc(title)
-} elseif { ![info exists doc(title)] && [exists_and_not_null title] } {
+} elseif { ![info exists doc(title)] && [info exists title] && $title ne "" } {
     set title [ad_system_name]
     set doc(title) $title
 }