Index: openacs-4/packages/acs-subsite/www/admin/themes/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/themes/index.tcl,v
diff -u -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/acs-subsite/www/admin/themes/index.tcl	26 Jan 2017 13:10:32 -0000	1.1.2.6
+++ openacs-4/packages/acs-subsite/www/admin/themes/index.tcl	11 Feb 2017 21:54:38 -0000	1.1.2.7
@@ -7,8 +7,8 @@
     {rename_theme ""}
 }
 
-set page_title [_ acs-subsite.Themes]
-set context [list $page_title]
+set doc(title) [_ acs-subsite.Themes]
+set context [list $doc(title)]
 
 set subsite_node_id [ad_conn subsite_node_id]
 
@@ -114,6 +114,7 @@
             set default [string trim [set $var]]
             set value   [string trim [parameter::get -parameter $param -package_id $subsite_id]]
             regsub -all {\r\n} $value "\n" value
+            regsub -all {\r\n} $default "\n" default            
             set modified_p [expr {$default ne $value}]
             if {$modified_p} {
                 ns_log notice "theme parameter $var differs: default '$default' actual value '$value'"