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.2 -r1.1.2.3
--- openacs-4/packages/acs-subsite/www/admin/themes/index.tcl	24 Jan 2017 09:35:26 -0000	1.1.2.2
+++ openacs-4/packages/acs-subsite/www/admin/themes/index.tcl	24 Jan 2017 10:00:01 -0000	1.1.2.3
@@ -101,8 +101,11 @@
     set modified_p 0
     if {$active_p} {
         foreach {var param} $settings {
-            set modified_p [expr {[set $var] ne [parameter::get -parameter $param -package_id $subsite_id]}]
+            set default [set $var]
+            set value   [parameter::get -parameter $param -package_id $subsite_id]
+            set modified_p [expr {$default ne $value}]
             if {$modified_p} {
+                ns_log notice "theme parameter $var differs: default '$default' actual value '$value'"
                 break
             }
         }