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.2 -r1.3
--- openacs-4/packages/dotlrn/www/dotlrn-master-custom.tcl	8 Aug 2006 21:26:24 -0000	1.2
+++ openacs-4/packages/dotlrn/www/dotlrn-master-custom.tcl	9 Nov 2008 23:29:23 -0000	1.3
@@ -11,6 +11,12 @@
 			    -default "/packages/dotlrn/www/dotlrn-master"]
 }
 
-if {![exists_and_not_null title]} {
+# Set page title
+if { ![info exists doc(title)] && [exists_and_not_null title] } {
+    set doc(title) $title
+} elseif { [info exists doc(title)] && ![exists_and_not_null title] } {
+    set title $doc(title)
+} elseif { ![info exists doc(title)] && [exists_and_not_null title] } {
     set title [ad_system_name]
-}
\ No newline at end of file
+    set doc(title) $title
+}